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INTRODUCTION 


PADC  NCAP  is  a  Fortran  program  which  computes  the  transfer 
functions  of  electronic  circuits.  Although  the  program  is  large 
and  its  analytical  technique  complex,  the  modular  structure, 
adherence  to  naming  conventions  for  subprograms  and  variables, 
and  numerous  in-line  comments  allow  NCAP  to  be  readily  adapted  to 
any  computer  with  an  appropriate  Fortran  compiler. 

The  program  consists  of  eight  phases,  numbered  0  through  7. 
Each  phase  performs  a  distinct  portion  of  the  circuit  analysis 
and  operates  independently  of  the  other  phases.  The  only 
interphase  communication  is  by  shared  disk  files:  the  driver 
file,  which  is  a  translation  of  the  NCAP  asterisk  input  cards  to 
a  machine  readable  description  of  the  circuit  analyses  to  be 
performed,  and  the  data  file,  which  contains  all  circuit  element 
input  data,  calculated  device  parameters,  admittance  matrices, 
and  transfer  function  vectors.  Although  several  other  disk  files 
are  used  by  NCAP,  their  function  is  to  conserve  core  storage  and 
to  ease  the  transmission  of  internally  generated  data  between  the 
subprograms  which  comprise  individual  phases.  Detailed 
descriptions  of  the  NCAP  disk  files  are  contained  in  the 
narrative  description  of  Phase  1. 

Phase  0  is  the  input  processor  for  NCAP.  It  reads  and 
interprets  the  input  deck,  mapping  the  input  cards  to  appropriate 
driver  and  data  file  records.  Phase  1  calculates  the  device 
parameters  for  each  circuit  element,  collects  and  tabulates  the 


circuit's  freouencies,  and  determines  the  size  of  the  admittance 
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matrices.  Phase  2  constructs  the  admittance  matrices,  one  for 
each  possible  combination  of  the  circuit's  frequencies.  Phase  3 
constructs  the  current  vectors  and  calculates  the  transfer 
functions  for  each  frequency  combination.  Phase  4  prints  the 
results  from  the  circuit  analysis  performed  in  phases  1-3  and 
controls  frequency  sweeping.  Phase  5  controls  linear  component 
sweeping,  Phase  6  controls  device  modification,  and  Phase  7 
controls  generator  modification . 

Since  numerous  circuit  analyses  may  be  specified  by  a  single 
NCAP  input  deck,  the  path  of  execution  through  the  program  phases 
is  not  necessarily  sequential.  Execution  always  begins  at  Phase 
0  and  proceeds  sequentially  through  Phases  1-4  to  perform  the 
first  circuit  analysis.  From  Phase  4,  program  execution  either 
reverts  back  to  Phase  1  to  initiate  a  new  analysis  if  frequency 
sweeping  is  specified,  or  proceeds  to  Phase  5  if  frequency 
sweeping  is  not  specified  or  after  all  such  sweeps  have  been 
satisfied.  In  a  similar  fashion,  Phases  5,  6,  and  7  may  either 
cycle  back  to  Phase  1  or  proceed  on  the  next  phase  depending  on 
the  linear  component  sweeping,  device  modification,  and  generator 
modifications  specified  in  the  input  deck.  Program  execution 
ends  with  Phase  7  after  the  last  (if  any)  generator  modification 
has  been  effected. 

Each  phase  is  composed  of  a  principle  subprogram  which 
controls  its  general  operation,  a  group  of  secondary  subprograms 
which  perform  specific  operations  for  individual  circuit  elements 
or  NCAP  functions,  and  in  some  cases,  additional  support 
subprograms  which  perform  operations  unioue  to  that  phase.  The 
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program  is  organized  sequentially  by  phases.  Within  each  phase, 
the  principle  subprogram  appears  first,  followed  by  the 
secondary  and  support  subprograms  in  alphabetical  order.  A  group 
of  shared  support  subprograms,  such  as  those  which  perform  disk 
input/output  or  complex  arithmetic,  follow  Phase  7  and  appear  in 
alphabetical  order. 

The  principle  subprograms  of  each  phase  are  subroutines, 
with  the  exception  of  Phase  0  whose  principle,  in  order  to 
satisfy  the  requirements  of  Fortran,  is  NCAP's  main  program. 
These  principle  subroutines  are  named  PHASE0 ,  PHASE1 ,  . . . , PHASE7 . 
With  the  exception  of  but  two  function  subprograms,  the  remainder 
of  the  NCAP  subprograms  are  subroutines. 

Wherever  possible,  the  subprograms  are  named  according  to 
specific  conventions.  Subprograms  which  perform  specific 
functions  related  to  circuit  elements  are  prefixed  or  suffixied 
with  a  device  identifier- 


GEN 

= 

Generator 

JFET  (or  JF) 

= 

Junction  Field  Effect  Transistor 

LC 

= 

Linear  Components 

LDS 

= 

Nonlinear  Dependent  Source 

NC 

= 

Nonlinear  Components 

NFS 

a 

Nonlinear  Dependent  Source 

PT 

= 

Vacuum  Pentode 

SD 

a 

Semiconductor  Diode 

T  (  or  TRN  ) 

= 

Bipolar  Junction  Transistor 

VD 

= 

Vacuum  Diode 

VT 

s 

Vacuum  Triode 

viii 


Furthermore,  within  each  phase  the  secondary  subprogram  names 
contain  functional  identifiers: 


IN 

= 

Read  and  interpret  input  cards 

CP 

= 

Calculate  parameters 

MT 

= 

Create  matrix  elements 

CUR 

= 

Calculate  current  elements 

Together 

the 

device  and 

functional  identifier,  describe 

the 

purpose 

of 

the  subprogram-  GENIN  =  input  generator 

card 

sequence , 

CPPT 

=  calculate 

pentode  parameters,  MTT  =  create 

transistor  matrix  elements,  CPMTVD  =  calculate  parameters  and 
create  matrix  elements  for  vacuum  diode,  CURNDS  =  calculate 
current  elements  for  nonlinear  dependent  source. 

At  the  support  level,  subprograms  which  perform  complex 
arithmetic  are  prefixed  by  CX  (  CXADD,  CXDIV,  etc),  while  disk 
I/C  routines  are  suffixed  by  RD  and  WR  (  DATARD,  DRIVWR,  etc.). 
Support  subprograms  whose  functions  are  too  specific  to  be 
categorized  are  named  as  descriptively  as  possible-  LOCTF  = 
locate  transfer  function,  FRPRM  =  create  frequency  permutation. 

The  program  code  for  subroutines  PHASE1  through  PHASE7  are 
all  organized  alike.  Execution  through  these  routines  is 
controlled  by  reading  and  processing  the  driver  file  records 
sequentially .  Each  driver  record  contains  a  functional 
identifier  or  mode,  which  serves  as  the  index  of  a  computed  GO 
TO,  selecting  the  proper  code  segment  to  process  that  record. 
The  coding  for  each  driver  function  is  arranged  numerically  by 
mode  within  the  subroutine  and  begins  with  the  statement  number 
equal  to  the  value  of  the  mode.  Additional  statement  numbers 
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within  a  code  segment  are  assigned  in  increments  of  100.  For 
example,  a  section  of  transistor  code  would  begin  with  statement 
9  (  the  transistor  driver  mode),  and  proceed  through  109,  209, 
309,  and  so  on. 

In  a  similar  fashion,  the  IN  family  of  subroutines  (input 
card  processors)  share  a  common  organization.  Execution  through 
these  subroutines  is  based  on  a  computed  GO  TO  using  the  card 
type  identifier  as  an  index.  The  coding  for  each  card  type  is 
arranged  numerically  within  the  subroutines  and  statement  numbers 
are  allocated  in  increments  of  100  within  code  segments. 

The  narrative  descriptions  of  the  NCAP  subprograms  which 
follow  are  arranged  in  the  order  in  which  they  appear  in  the 
program-  by  phases,  and  within  phases,  by  alphabetical  order. 
Each  subprogram  description  contains  a  brief  statement  of 
purpose,  followed  by  a  variable  list,  subroutines  called,  calling 
programs,  and  a  detailed  narrative  of  the  program  code.  Wherever 
possible  mathematical  algorithms  are  summarized  and  tables  of  all 
possible  computed  results  are  presented. 

To  avoid  repetition,  variables  which  are  used  globally  are 
listed  only  in  the  Phase  0  description  or  in  the  first  principle 
subprogram  in  which  they  are  used.  In  the  secondary  and  support 
subprogram  descriptions,  only  local  variables  (or  in  some  cases 
less  frequently  used  global  variables)  are  listed. 

Machine  dependent  code  has  been  clearly  identified  in  both 
the  program  listing  and  narrative  descriptions  in  order  to  ease 
the  adaptation  of  NCAP  to  various  computer  systems. 

Functional  flow  diagrams  for  each  subprogram  have  been 


included  to  provide  an  insight  into  the  general  flow  of  logic 
through  the  program.  They  are  not  intended  to  describe  the 
analytical  techniques  employed  in  the  program  or  to  depict  the 
program  code  in  detail.  Individual  symbols  of  the  flow  diagrams 
generally  represent  several  lines  of  program  code  or  complete 
code  segments.  Wherever  possible,  diagram  symbols  have  been 
labelled  with  appropriate  statement  numbers  from  the  program. 
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ALPHA 

DATOUT 

DECIF 

DECIM 

DRVOUT 

ECIN 

ENDIN 

GENIN 

GENOUT 

INTEG 

JFETIN 

LCIN 

LDSIN 

MODGIN 

MOD  IN 

NCIN 

NDSIN 

NODE IN 

PACKL 

PACKR 

PLOTIN 

PRCSS 

PS  IN 

PTIN 

SCAN 

SCIN 

SHIFT 

TRNIN 

VD  IN 

VTIN 


NAME-  MAIN 


TYPE:  MAIN  PROGRAM 

GENERAL  PURPOSE: 

Disk  file  definition,  system  initialization, 
control  of  input  phase 


V 

«v 


VARIABLES- 

BUFF 

CARD 

DATREC  = 
DRVREC  = 
IMAGE  = 
INP 
IOUT 
JAPT 
LNGTH  = 
MAXIT  = 
MDESV  = 
MISC 
MODE 


I/O  buffer  for  disk  records 
Input  buffer  for  card  image.  One  character 
per  word,  alpha  representation,  left-justif ied 
Next  available  location  on  data  file  (20) 

Driver  file  (21)  address  pointer 
Print  buffer  for  input  card  images 
Logical  unit  number  of  card  reader 
Logical  unit  number  of  line  printer 
Input  error  switch-  off  =  0 ,  on  =  1 
Length  of  data  record  in  words 
Total  number  of  freouency  sweep  iterations 
Mode  of  previous  *-card 

Driver  record  parameters  uniaue  to  each  mode 
Identifies  circuit  element,  device  model,  or  NCAP 
function 

1  =  Drive  file  header 

2  =  Comment  or  no-op 

3  =  Generator 
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MODFY 


NAPT 


4  *  Linear  Components 

5  *  Nonlinear  Components 

6  *  Vacuum  Diode 

7  *  Vacuum  Triode 

8  =  Vacuum  Pentode 

9  =  Pipolar  Junction  Transistor 
IP  =  Semiconductor  Diode 

11  =  Not  used 

12  =  Freauency  Sweep 

13  *  Start  Circuit 

14  =  End  Circuit 

15  =  Not  used 

16  =  End 

17  =  Print  Select 

18  =  Modify 

19  =  Not  used 

28  =  Junction  Field  Effect  Transistor 

21  =  Generator  Modification 

22  =  Plot 

23  =  Not  used 

24  =  Linear  Component  Sweep 

25  =  Linear  Dependent  Source 

26  =  Nonlinear  Dependent  Source 

=  Modify  switch-  8  =  Modify  not  in  effect 

1  =  Modify  in  effect 
*  Error  switch  for  node  card* 


0  =  Node  card  present 


1  =  Node  card  missing 
NBCHAP  =  Number  of  bits  per  character 
NBWCFD  =  Number  of  bits  per  word 
NCHAR  =  Number  of  characters  per  word 
NCOM  =  Number  of  successive  comment  cards 
NCUPV  =  Number  of  curves  defined  by  circuit  analysis 
NEW  =  Identifies  input  card  being  processed! 

-1  =  Unidentified  card,  card  out  of  order 
0  =  Parameter  card 

1  =  Not  used 

2  =  Comment  card 
>2  =  *-card 

NFP  =  Number  of  frequency  values  for  abcissa  of 
plot 

NIT  =  Freouency  sweep  iteration  counter 

NLIST  =  Print  select  on/off  switch:  0  =  on ,  1  =  off 

NPLCT  =  Number  of  plot  specifications  in  input  deck 

NVEC  =  Number  of  t.f.  values  for  ordinate  of  plot 

NXT  =  Counter  for  data  values  being  input 

CPDFP  =  Total  number  of  nodes  in  circuit; 

Order  of  admittance  matrix 

SCPEC  =  Location  of  *START  CIRCUIT  driver  record 

STADD  =  Data  file  (20)  address  pointer 

TINE  =  Time  elapsed  in  single  program  segment 

TSTART  =  Start  time  of  single  program  segment 

TSTOP  =  Stop  time  of  single  program  segment 

TTCTAL  =  Total  time  elapsed  all  executions  single 
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*  v 


program  segment 

Identifies  type  of  parameter  card 


TYPE 


2  =  Data  values  only 


3  =  Impedance 


4  =  Frequency 


6  =  Node 


7  *  Amplitude 


10  =  Inductor 


15  =  Label 


SUBROUTINES  CALLED: 

DEC IF  PRCSS  PTIME  RANSIZE  RSHIFT  SHIFT 

CALLING  PROGRAMS' 

NONE 

DESCRIPTION- 

NCAP's  main  program  is  the  primary  routine  of  Phase  0.  It 
performs  initialization  of  system  parameters  and  reads  the  input 
deck.  System  initial ization  begins  with  the  definition  of  NCAP's 
disk  files.  Because  different  Fortran  compilers  employ  various 
methods  for  specifying  random  access  files,  this  function  is 
considered  machine  dependent.  Therefore  the  structure  and  method 
of  accessing  NCAP's  disk  files  are  presented  here  to  enable  the 
reader  to  translate  the  particular  random  access  I/O  requirements 
of  NCAP  into  appropriate  file  definition  statements. 

The  data  file,  logical  unit  20,  contains  the  NCAP  input  data 
and  all  internally  generated  data  and  results  such  as  device 
parameters,  admittance  matrices,  and  transfer  function  vectors. 
The  data  file  is  structured  as  an  unlimited  number  of  contiguous 
one  -  word  physical  records,  each  of  which  is  addressable 
according  to  its  relative  location  in  the  file.  A  logical 
record,  such  as  a  device  data  record  or  a  transfer  function 
vector ,  consists  of  an  arbitrary  number  of  physical  records  and 
is  accessed  by  the  first  word  of  the  record  and  the  record 
length.  The  integer  variables  STADD  and  DATREC  are  used  as  data 
file  record  pointers.  Subroutine  DA TAW R  causes  data  to  be 
written  from  core  storage  to  file  20,  while  subroutine  DATARD 
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causes  data  to  be  read  from  file  20  to  core  storage. 

The  driver  file,  logical  unit  21,  is  *a  mapping  of  the  * 
input  cards  to  disk  storage.  It  contains  the  information 
required  to  define  the  circuit  and  the  circuit  analyses  to  the 
system,  and  is  used  to  control  the  operation  of  the  various  NCAP 
phases.  The  driver  file  is  initially  created  during  Phase  0  as 
input  cards  are  processed,  and  is  modified  or  updated  as 
necessary  during  subsequent  phases.  Each  *  -  card  in  the  input 
deck  maps  to  one  or  more  driver  file  records,  which  originate 
from  the  first  ten  words  of  global  common.  The  first  three  words 
of  each  driver  record,  MODE,  STADD,  and  LNGTH ,  identify  the 
function  and  define  the  boundaries  of  its  associated  data  record 
on  file  20.  The  additional  words  MISC(1)  through  MISC(7)  contain 
parameters  and  pointers  unique  to  each  NCAP  function.  The  driver 
file  is  accessed  by  subroutines  DRIVWF  and  DRIVED.  Individual 
driver  records  are  addressed  by  the  record  number  stored  in 
DRVREC . 

File  22  contains  frequency  data  used  as  the  abscissa  for 
plotting  NCAP  output.  Each  record  contains  ten  frequency  values, 
one  for  each  of  the  ten  possible  plot  specifications  in  the  NCAP 
input  deck.  The  number  of  records  in  the  file  is  maintained  in 
the  integer  word  NFR  and  depends  upon  the  number  of  circuit 
analyses  performed  in  the  NCAP  run.  File  22  is  accessed  directly 
by  random  file  read/write  statements. 

File  23  contains  the  transfer  function  values  used  as  the 


ordinate  for  plotting  NCAP  output.  Each  record  contains  twenty 
words  and  stores  one  complex  (two-  word)  transfer  function  value 
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for  each  of  the  ten  possible  plot  specif ications  in  the  NCAP 
input  deck.  The  number  of  records  in  the  file  is  maintained  in 
the  integer  word  NVEC  and  depends  upon  the  number  of  circuit 
analysis  performed  in  the  NCAP  run.  File  23  is  accessed  directly 
by  random  file  read/write  statements. 

File  24  contains  the  transfer  function  table  created  in 
Phase  3  by  subroutine  CONTRL.  It  is  made  up  of  the  lower-order 
transfer  function  vectors  required  by  the  current  generator 
subroutines,  and  consists  of  a  large  number  of  contiguous 
one-word  physical  records,  each  of  which  is  addressable.  Each 
logical  record  stores  one  complex  transfer  function  vector  whose 
length  depends  upon  the  number  of  nodes  in  the  circuit.  Transfer 
function  vectors  are  accessed  according  to  LOCT,  the  address  of 
the  first  word  of  the  record,  and  LT,  the  length  of  the  record. 
Transfer  function  values  at  a  particular  node  are  accessed  by  the 
first  word  of  the  vector  plus  a  displacement  factor  derived  from 
the  node  number.  Subroutine  TFWF  and  TFRD  perform  input/output 
for  file  24. 

File  25  is  used  to  store  the  current  vector  calculated  for 
one  freouency  combination  in  Phase  3.  The  file  contains  one 
logical  record,  the  length  of  which  is  determined  by  the  number 
of  nodes  in  the  circuit.  Current  vector  values  for  each  node  of 
the  circuit  are  individually  addressable.  Subroutines  TFWR  and 
TFPC  perform  input/output  for  file  25. 

The  system  initialization  portion  of  Phase  0  begins  with  the 

41  » 
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definition  of  NCAP'S  machine  dependent  character  manipulation 

parameters  which  are  transmitted  to  the  subroutines  which  use 
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them  through  the  labelled  common  area  WORDSZ .  The  integer 
variables  NCHAR  (number  of  characters  per  word) ,  NBCHAR  (number 
of  bits  per  character)  ,  and  NBWORD  (number  of  bits  per  word) 
describe  precisely  the  word  length  of  the  host  computer  and  its 
method  of  representing  alphanumeric  characters  internally.  The 
alphanumeric  left-justified  blank,  LBLANK ,  is  defined  in  a  DATA 
statement.  The  r ight- j ustif ied  blank  character ,  RBLANK ,  is 
calculated  in  the  main  program  by  a  call  to  subroutine  SHIFT. 

Next  the  logical  unit  numbers  of  the  primary  input  and 
output  devices,  usually  the  card  reader  and  line  printer,  are 
stored  in  INP  and  IOUT  respectively.  The  frequency  sweep 
parameters  NIT  and  MAXIT,  the  plot  parameters  NCURV,  NFR ,  and 
NVEC ,  and  the  print  select  and  plot  switches  NLIST  and  NPLOT  are 
initialized  in  the  main  program  and  updated  and  tested  during  the 
execution  of  subsequent  phases. 

The  input  phase  begins  with  the  initialization  of  Phase  0  • 

pointers,  switches,  and  data  areas.  The  data  buffer  BUFF(I),  1=1, 

250  is  cleared  and  the  driver  file  record  number  DRVREC  is  set  to 
2,  leaving  an  open  record  for  the  driver  file  header  which  is 
generated  internally  at  the  conclusion  of  Phase  0.  DATPEC ,  the 
next  available  storage  location  on  data  file  20,  is  initialized 
to  1,  as  is  the  data  file  address  pointer  STADD.  The  input  error 
switch  is  turned  off  by  JAET  =  0,  while  the  node  card  error 

switch  is  initially  turned  on  by  NABT  =  1.  The  data  value  and 

comment  card  counts  NXT  and  NCOM  are  cleared  and  the  Start 
Circuit  driver  record  number  SCPFC  is  set  to  zero. 

Since  the  exact  content  of  the  NCAP  input  deck  is  not  known 
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in  advance,  input  processing  is  not  merely  a  matter  of  reading 
and  storing  data  in  a  prearranged  fashion.  Instead  the 
subroutines  of  Phase  0  act  in  concert  to  interpret  the  input 
cards,  translating  them  into  appropriate  driver  and  data  records 
for  use  by  subsequent  NCAP  phases. 

The  input  deck  consists  of  a  series  of  *-control  card 
sequences  which  define  circuit  topology,  circuit  excitation, 
linear  and  nonlinear  elements  and  models,  solution  modification, 
and  output.  Each  such  card  sequence  begins  with  an  *-control 
card  defining  its  function,  followed  by  parameter  cards  that 
supply  additional  information  and/or  precise  values  for  that 
function . 

Phase  0  is  driven  primarily  by  the  *-control  cards. 
Whenever  an  *-control  card  is  encountered  in  the  input  stream, 
the  previous  function  is  closed  by  writing  its  driver  and  data 
records  to  disk,  and  a  new  function  is  opened.  Parameter 
(nonasterisk)  cards  are  passed  along  to  a  subroutine  unique  to 
the  function  defined  by  the  previous  *-card.  There  the  parameter 
card  is  processed  according  to  an  anticipated  format  and  its  data 
merged  with  any  previous  data  for  that  function.  Input  continues 
in  this  fashion  until  the  *END  card  is  processed,  at  which  time 
program  control  transfers  to  PHASEl. 

Input  processing  is  controlled  by  NCAP'S  main  program  and 

begins  by  initializing  the  function  identifier  MODE  to  1, 

indicating  that  no  input  card  sequences  have  yet  been  processed. 

A  card  is  fead  in  left-justified  alphanumeric  format,  one 

character  per  word,  into  the  integer  array  CARD.  If  an 
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unanticipated  end-of-file  is  encountered,  execution  terminates 
with  a  CALL  EXIT.  Otherwise  the  card  image  is  transmitted  to 
subroutine  DECIF  where  it  is  examined  and  assigned  a  functional 
integer  code  which  is  returned  to  the  main  program  in  NEW.  Upon 
return  from  DECIF,  NEW<0  indicates  an  unidentified  card  which  is 
not  processed  further,  and  after  printing  an  appropriate  error 
message  program  control  transfers  to  read  the  next  card. 
Otherwise  the  card  is  either  a  comment  (**)  ,  an  *-control  card, 
or  a  parameter  (non-asterisk)  card.  Comment  cards,  identified  by 
NEW=2,  are  printed  on  the  line  printer  but  otherwise  ignored  by 
Phase  0 . 

When  an  *-control  card  is  encountered  in  the  input  deck, 
subroutine  DECIF  returns  a  value  of  NEW>2  to  the  main  program. 
This  causes  the  old  function  identified  by  MODE  to  be  closed  and 
the  new  function  identified  by  NEW  to  be  opened.  Control  passes 
from  the  main  program,  through  subroutine  PRCSS,  to  an 
appropriate  input  processing  subroutine  which  closes  the  previous 
♦-function  by  writing  its  driver  and  data  records  to  disk,  and 
printing  any  error  messages  associated  with  it.  Upon  return  to 
the  main  program  the  new  *-card  is  printed,  the  mode  of  the 
previous  function  is  saved  in  MDESV ,  and  the  modify  switch  MODFY 
is  turned  off.  The  new  function  is  opened  by  setting  MODE=NEW  and 
the  data  value  counter,  driver  record  parameters,  and  data  buffer 
are  reinitialized. 

Parameter  card  images  (NEW=fl)  are  output  on  the  line 
printer,  and  then  transmitted  through  subroutine  PRCSS  to  an 
appropriate  input  processing  subroutine  according  to  the  value  of 
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MODE.  There  the  card  is  reformatted  and  interpreted  according  to 
the  value  of  TYPE.  Upon  return  to  the  main  program,  control 
transfers  to  read  the  next  card. 

Input  continues  until  the  *END  (MODE-16)  card  is 
encountered.  At  this  point  the  input  processor  ENDIN  causes 
program  control  to  transfer  to  PHASE1  if  no  errors  were  detected 
in  the  input.  Otherwise  NCAP  execution  terminates. 


*  » 
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NAME*  ALPHA 


TYPE*  SUBROUTINE 

GENERAL  PURPOSE- 

Decodes  and  formats  an  alphabetic  input  value  by 
converting  the  characters  stored  in  CARD(IPOS) 
through  CARD(J-l)  to  an  alphanumeric  value  returned 
in  STRING (1) 

VARIABLES: 

CARD  =  Right-justif ied  alphanumeric  card  image 

IPOS  =  Position  of  first  character  to  be  formatted 

ISW  =  End  of  data  switch;  Off  =0,  On  =  1 

J  =  Position  of  last  character  to  be  formatted+1 

STRING  =  Alphanumeric  string  representation  of  input 

value 

SUBROUTINES  CALLED- 
SCAN 


CALLING 

PROGRAMS- 

GEN  IN 

JFETIN 

LCIN 

LDSIN 

MODGIN 

NCIN 

NDSIN 

NODEIN 

PLOTIN 

PSIN 

SCIN 


DESCRIPTION- 

Subroutine  ALPHA  decodes  and  formats  a  free-form  alphabetic 
input  value.  Input  to  the  routine  is  the  right-justified 
alphanumeric  card  image  stored  in  the  integer  array  CARD  and  the 
character  position  IPOS  at  which  the  datum  begins. 

The  contiguous  characters  CARD (IPOS)  through  CARD(J-l)  which 
comprise  the  alphabetic  input  value  are  extracted  from  the  card 
image  and  converted  to  a  lef t-justif ied  alphanumeric  string  by 
subroutine  SCAN.  The  resulting  alphabetic  datum  stored  in  the 
integer  STRING(l)  is  returned  to  the  calling  program  without 
further  processing. 

Additional  arguments  returned  by  subroutine  ALPHA  are  the 
updated  character  position  IPOS,  which  indicates  the  first 
character  position  of  the  next  value  on  the  card,  and  the 
end-of-data  switch  ISW. 
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*  V 


DRVOUT 


DRIVWR 


NAME:  DATOUT 


TYPE-  SUBROUTINE 

GFNEPAL  PURPOSE- 

Writes  input  data  to  file  20  and  driver  records  to  file 
21.  Output  is  by-passed  if  input  errors  exist.  Clears 
I/O  buffer. 

VARIABLES- 

J  =  Number  of  parameters  in  the  data  record 

N  =  Length  of  data  record  to  be  output  (in 

words) 

SUBROUTINES  CALLED- 
DATAWP  DRVOUT  ERROR 

CALLING  PROGRAMS: 

PTIN  SCIN  SDIN  TRNIN 

VDIN  VTIN  JFETIN 

) 

DESCRIPTION •  , 

Subroutine  DATOUT  handles  the  output  of  data  and  driver 
records  for  many  of  tire  Phase  0  input  processing  routines, 
closing  the  function  defined  by  an  *-card  sequence.  Arguments 
transmitted  to  the  subroutine  are  J,  the  number  of  parameters 
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anticipated  and  N,  the  length  of  the  data  record  in  words. 

First  the  input  data  is  tested  for  errqrs.  Subroutine 
DATOUT  exits  with  an  appropriate  error  message  if  any  of  the 
following  input  errors  are  detected: 

1)  The  parameter  count  NXT  is  less  than  the 
anticipated  number  of  data  values 

2)  A  node  card  was  encountered  in  a  modify  card 
sequence  (NABT=0  and  M0DFY=1 ) 

3)  The  node  card  was  missing  from  a  circuit 
element  definition  (NABT*1  and  MODFY=0 ) 

4)  The  input  error  switch  is  on  (JABT=1) 

If  no  input  errors  are  detected,  the  data  record  is  written 
from  the  common  data  buffer  BUFF  to  file  20  by  subroutine  DATAWR. 
The  data  file  record  number  DATREC  is  updated  to  point  beyond  the 
new  data  record  by  DATREC  =  DATREC  +  N. 

Subroutine  DRVOUT  is  called  to  complete  the  driver  record 
definition  and  to  write  it  to  file  21,  closing  the  function. 
Subroutine  DATOUT  then  returns  to  the  calling  program. 


NAME  ?  DECIF 


TYPE?  SUBROUTINE 

GENERAL  PURPOSE: 

Assigns  functional  identifiers  NEW  and  TYPE  to  input 
card  images 


VARIABLES: 
BLANK  = 
CODES  = 
IAST 

11 

12 

NCODS  = 

NTPS 

NUMS 


Lef t- j ust if ied  alphanumeric  blank 
Valid  *-card  functions 
Left-justif ied  alphanumeric  asterisk 
First  character,  first  word  of  *-card 
First  character,  second  word  of  *-card 
Number  of  valid  *-card  functions 
Number  of  valid  parameter  card  designators 
Left-justif ied  alphanumeric  representation 
of  the  characters 


1,2,  ...  9 ,  0 E 

TYPES  =  Valid  parameter  card  designators 


SUBROUTINES  CALLED: 
ERROR 


CALLING  PROGRAMS: 
MAIN 


3-4D 


DESCRIPTION: 

Subroutine  DECIF  examines  the  card  image  transmitted  to  it 
in  the  integer  array  CARD  and  assigns  NEW  and  TYPE  codes 
according  to  its  contents.  The  card  image  is  stored  in 
lef t-justif ied  alphanumeric  format,  one  character  per  word  in  the 
integer  array  CARD. 

Although  the  system  cannot  anticipate  the  exact  make-up  of 
an  input  deck,  it  does  recognize  five  basic  card  types: 

1)  An  *-control  card  containing  an  *  followed  by  one 
or  more  keywords.  Such  cards  are  classified  by 
TYPE=1  and  NEW=3 , 4 , . . . 26 ,  depending  on  the  keywords. 

2)  A  parameter  card  containing  an  identifying  keyword. 

These  cards  are  classified  by  NEW=0  and  TYPE= 

3, 4,... 23  depending  on  the  keyword. 

3)  A  parameter  card  containing  only  numeric  values 
and  classified  by  NEW=0  and  TYPE=2. 

4)  A  comment  card  containing  **  in  the  first  two  non¬ 
blank  character  positions.  Comments  are  classified 
by  NEW* 2. 

5)  An  unidentifiable  card  constituting  an  error  and 
classified  by  NEW=-1. 

The  function  of  subroutine  DECIF  is  to  determine  which  of 
these  card  types  applies  to  the  given  card  image  and  to  assign 
corresponding  NEW  and  TYPE  codes  which  serve  as  the  basis  for 
further  processing  by  Phase  0.  A  complete  tabulation  of  NEW  and 
TYPE  codes  is  presented  below: 


NEW 

CODES 

DESCRIPTION 

(MODE) 

(Character  Pair) 

-1 

None 

Error  Condition 

0 

None 

Parameter  Card 

1 

None 

Driver  File  Header 

(Internally  Created) 

2 

None 

Comment 

3 

G_ 

Generator 

4 

LC 

Linear  Components 

5 

NC 

Nonlinear  Components 

6 

VD 

Vacuum  Diode 

7 

VT 

Vacuum  Triode 

8 

VP 

Vacuum  Pentode 

9 

T_ 

Transistor 

10 

SD 

Semiconductor  Diode 

11 

XX 

Not  Used 

12 

XX 

Frequency  Sweep 

(Internally  Created) 

13 

sc 

Start  Circuit 

14 

EC 

End  Circuit 

15 

XX 

Not  Used 

16 

E_ 

End 

17 

PS 

Print  Select 

18 

M_ 

Modify 

19 

XX 

Not  Used 
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20 

J 

Junction  Field  Effect 

Transistor 

21 

XX 

Generator  Modification 

(Internally  Created) 

22 

P 

Plot 

23 

XX 

Not  Used 

24 

XX 

Linear  Component  Sweep 

(Internally  Created) 

25 

LD 

Linear  Dependent  Source 

26 

ND 

Nonlinear  Dependent  Source 

TYPE 

TYPES 

DESCRIPTION 

(Character  Pair) 

1 

None 

♦-Control  Card 

2 

None 

Parameter  Card  With  Only 

Numeric  Values 

3 

IK 

Impedance 

4 

FP 

Frequency 

5 

OP 

Orders  for  Print  Select  or 

Plot 

6 

NO 

Nodes  for  Print  Select  or 

Plot 

7 

AM 

Amplitude 

8 

P 

Resistor 

9 

C_ 

Capacitor 

10 

L 

Inductor 
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11 

12 

13 

14 

15 

16 

17 

18 

19 

20 

21 

22 

23 


CO 

BP 

CP 

AC 

LA 

FB 

RB 

VC 

CC 

VV 

CV 

OF 

ON 


Constants  for  JFET 
B-Parameters  for  JFET 
C-Parameters  for  JFET 
Analytic  Parameters  for  JFET 
Label  for  Plot 
Forward  Bias 
Reverse  Bias 

Voltage  Controlled  Current 
Source 

Current  Controlled  Current 
Source 

Voltage  Controlled  Voltage 
Source 

Current  Controlled  Voltage 
Source 

Print  Select  Off 
print  Select  On 


Because  the  NCAP  user  exoresses  his  input  in  free-form, 
there  is  no  requirement  for  card  input  to  begin  in  column  1  or 
that  data  values  appear  in  particular  card  columns.  A  data  value 
is  defined  as  a  string  of  contiguous  non-blank  alphanumeric 
characters,  and  although  the  order  in  which  data  are  placed  on 
cards  is  critical,  the  spacing  between  data  values  is  arbitrary. 
Therefore  subroutine  DECIF  must  isolate  the  individual  data 
values  on  the  card  and  then  classify  the  card  according  to  those 
val  ues  . 
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Classification  begins  by  determining  the  presence  or  absence 
of  an  *  in  the  first  non-blank  character  position.  Starting  at 
CARD ( 1 )  the  image  is  scanned  column-by-column  to  locate  the  first 
non-blank  character.  If  no  non-blanks  are  found,  the  card 
contains  no  data  and  subroutine  DECIF  exits  to  the  main  program 
treating  the  blank  card  as  a  comment.  Otherwise  the  first 
non-blank  located  in  CARD(I)  is  tested  for  the  presence  of  an  *. 
If  an  *  is  found,  the  card  is  either  an  ‘-control  card  or  a 
comment  card.  If  CARD(I+1)  is  also  an  asterisk,  a  comment  is 
assumed  and  classified  by  NEW=2.  After  incrementing  the  comment 
count  NCOM,  subroutine  DECIF  exits  to  the  main  program. 

If  CARD ( 1+1 )  is  not  an  asterisk,  an  ‘-control  card  is 
assumed.  The  first  character  of  each  of  the  next  two  words  is 
extracted  and  compared  against  the  table  of  valid  character  pairs 
stored  in  CODES(J),  J=l,  NCODS.  If  a  match  is  found,  the  card  is 
classified  by  TYPE=1  and  NEW=J+2.  If  no  match  is  found,  the 
unidentifiable  card  is  classified  by  NEW=-1  and  exit  occurs  after 
an  appropriate  error  message  is  printed. 

In  the  event  that  the  first  non-blank  character  CARD(I)  is 
not  an  asterisk,  a  parameter  card  is  assumed  and  classified  by 
NEW=0.  Such  cards  are  further  examined  by  comparing  the  first 
two  characters  of  the  first  word  on  the  card  against  a  table  of 
valid  character  pairs  stored  in  TYPES(J),  J=l,  NTPS .  If  a  match 
is  found,  the  card  is  classified  by  TYPE=J+2  and  exit  occurs. 
Otherwise  the  first  non-blank  character  is  compared  against  the 
table  of  valid  numeric  characters  stored  in  NUMS(J),  J=l,  14.  No 


match  indicates  an  unidentifiable  card  which  is  assigned  NEW“-1. 
If  the  character  is  a  valid  numeric,  the  card  is  assumed  to 
contain  only  numeric  data  values  and  is  further  classified  by 
TYPE*2.  In  either  event  return  is  made  to  the  main  program  where 
further  processing  of  the  card  image  takes  place. 
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NAME:  DECIM 


TYPE?  SUBROUTINE 


GENERAL  PURPOSE: 


Decodes  and  formats  a  decimal  input  value  by  converting  the 
characters  stored  in  CARD(IPOS)  through  CARD(J-l)  to  a 
floating  point  number  returned  in  X 


VARIABLES • 

CARD  =  Right-justified  alphanumeric  card  image 

IPOS  =  Position  of  first  character  to  be  formatted 

ISW  =  End  of  data  switch;  Off  =0,  On  =  1 

J  =  Position  of  last  character  to  be  formatted+1 

STRING  =  Alphanumeric  string  representation  of  «nput 

value 

x  =  Floating  point  value  returned 


SUPPOUTINFS  CALLED' 


CALI IVC  PPCCPAMF 


CFI’IN  JFFTIN  LCIF 


LFSIN  ■  TODCIN 


rcir 


vnr 


NDSir  PTIM 


VTir 


snr: 


TPNIN 
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DESCRIPTION- 


Subroutine  DECIM  decodes  and  formats  a  free-form  decimal 
input  value.  Input  to  the  routine  is  the  r ight-justif ied 
alphanumeric  card  image  stored  in  the  integer  array  CARD  and  the 
character  position  IPOS  at  which  the  datum  begins. 

The  contiguous  characters  CARD(IPOS)  through  CARD(J-l)  which 
comprise  the  decimal  input  value  are  extracted  from  the  card 
image  and  converted  to  a  right-justified  alphanumeric  string  by 
subroutine  SCAN.  The  character  string  returned  in  the  integer 
array  STRING  is  then  converted  from  alphanumeric  representation 
to  a  floating  point  value  X  by: 

DECODE  (STRING,  1)  X 
1  FORMAT  (El  2.0) 

Arguments  returned  by  subroutine  DECIM  are  the  decimal  input 
value  X,  the  updated  character  position  IPOS  which  indicates  the 
first  character  position  of  the  next  data  value  on  the  card,  and 
the  end-of-data  switch  ISW. 


I 
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*  r 


DRIVWR 


NAM F •  DPVOUT 


TYPE-  SUBROUTINE 

GENERAL  PURPOSE* 

Corrpletes  definition  of  driver  parameters  and  writes 
driver  record  to  file  21 


VAFIAFLFS • 

JJ  =  Intermediate  storage  of  MOTF 

SUBROUTINES  CAIIFC* 
rpivwp 

CALLING  PPCCPAMS* 

DATCUT  ECIN  FNFIN  LCIN  .  ITS  IN 

NCIN  PS IN  SC IN 

DESCRIPTION* 

Subroutine  DPVCUT  completes  the  definition  of  driver  record 
parameters  for  some  of  the  Phase  0  input  processing  subroutines 
and  writes  the  driver  record  to  file  21. 

The  vccf  of  the  present  card  seouence  is  saved  in  JJ  and  the 

data  record  length  is  calculated  by  LNGTH=DATFFC-STACC .  If  the 
modify  switch  is  off  (VCDFY=P) ,  the  driver  record  is  written  to 

file  21  from  the  first  ten  words  of  global  common  by  subroutine 

mivra. 


A  MODIFY  card  sequence  carries  the  MODE  of  the  device  it 
modifies  during  input  processing,  but  is  written  to  the  driver 
file  as  MODE*18 .  Therefore,  if  the  card  sequence  being  processed 
is  a  modify  function  (MODFY=l) ,  MODE  is  set  to  18  and  the  mode  of 
the  device  being  modified  is  taken  from  MDESV  and  saved  in  JJ 
before  the  driver  record  is  written  by  subroutine  DRIVWR. 

Upon  return  from  subroutine  DRIVWR  the  record  number  for  the 
next  data  record  STADD  is  taken  from  DATREC ,  the  mode  of  the 
present  card  seouence  is  reset  from  JJ,  and  subroutine  DRVOUT 
returns  to  the  calling  program. 
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ERROR 


DRVOUT 


DRIVWR 


NAME-  ECIN 

TYPE-  SUBROUTINE 

GENERAL  PURPOSE- 

Processes  *END  CIRCUIT  card 

VARIABLES- 

NONE 

SUBROUTINES  CALLED- 
ERROR 

CALLING  PROGRAMS: 

PRCSS 

DESCRIPTION: 

Subroutine  ECIN  is  the  input  processor  for  the  END  CIRCUIT 
card.  Its  function  is  to  translate  the  end  circuit  definition 
into  an  appropriate  driver  record  for  use  by  subsequent  NCAP 
phases. 

Because  there  are  no  data  cards  associated  with  the  end 
circuit  input,  TYPE=1  is  the  only  code  recognized  by  subroutine 
ECIN.  Any  other  value  of  TYPE  constitutes  an  input  error  which 
is  handled  by  subroutine  ERROR  before  exit  to  the  calling 
program. 
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If  the  start  circuit  driver  record  number  is  undefined 
(SCREC-0)  or  the  input  error  switch  is  on  (JABT*1) ,  subroutine 
ECIN  exits  with  an'  appropr iate  error  condition.  Otherwise  the 
END  CIRCUIT  driver  record  is  written  to  file  21  from  the  first 
ten  words  of  global  common  by  subroutine  DRVOUT. 

The  end  circuit  driver  record  is  identified  by  MODE=14. 
Because  there  is  no  data  associatd  with  an  end  circuit  function, 
the  driver  parameters  STADD  and  LNGTH  are  not  applicable.  The 
start  circuit  driver  record  number  is  stored  in  MISC(1).  The 
other  MISC  driver  parameters  are  not  used. 

After  the  driver  record  has  been  written  to  disk,  subroutine 
ECIN  returns  to  the  calling  program. 
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......  . 


f'-‘  NAME:  ENDIN 
*  0 

TYPE:  SUBROUTINE 

GENERAL  PURPOSE: 

Processes  *END  card,  creates  driver  file  header,  closes 
Phase  0  processing 

VARIABLES: 

NONE 

SUBROUTINES  CALLED: 

DRVOUT  PHASE1  TIMOUT 

CALLING  PROGRAMS: 

PRCSS 


DESCRIPTION- 

Subroutine  ENDIN  is  the  input  processor  for  the  END  card. 
Its  function  is  to  translate  the  end  definition  into  an 
appropriate  driver  record  for  use  by  subseouent  NCAP  phases  and 
to  close  the  Phase  0  processing. 

If  errors  were  encountered  in  the  input  deck  during  Phase  0 
processing  ( JABT  *  1) ,  NCAP  execution  terminates  with  a  CALL 
EXIT. 


Otherwise  the  END  driver  record  is  written  to  file  21  by 
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subroutine  DRVOUT.  The  END  driver  record  is  identified  by 
MODE*16 .  Because  there  is  no  data  associated  with  the  end 
function  (it  simply  serves  as  a  delimiter),  the  driver  parameters 
STADD  and  LNGTH  are  not  applicable.  The  MISC  driver  parameters 
are  not  used. 

The  Phase  0  processing  is  closed  by  creating  the  driver  file 
header  and  writing  it  to  the  first  record  of  file  21.  The  header 
record  is  identified  by  MODE=l  and  contains  the  next  available 
file  20  storage  location  in  MISC(l)  and  MISC(4).  The  other 
driver  parameters  are  not  used.  The  header  record  is  written  to 
the  driver  file  by  subroutine  DRVOUT  and  program  control 
transfers  to  subroutine  PHASE1. 
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NAME-  GENIN 


TYPE:  SUBROUTINE 

GENERAL  PURPOSE: 

Processes  *GENERATOR  card  sequence  according  to  the  value 
of  TYPE: 

Type  =  1  End  of  card  seouence 

Type  =  3  Impedance 

Type  =  4  Frequency 

Type  =  6  Node 

Type  =  7  Amplitude 

VARIABLES: 

AMP  =  Amplitude  values 

CXONE  =  Floating  point  representation  of  complex 
number  (1 .  ,0  . ) 

FNO  =  User-assigned  frequency  numbers 
FREO  =  Frequency  values 

IMPS  =  Impedance  values 

IMTBL  *  Impedance  combination  code 

INC  -  Number  of  steps  in  frequency  sweep 

ISTART  =  Location  of  first  character  in  impedance 
combination 

ISTOP  =  Location  of  last  character  in  impedance 
combination  +  1 
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ISW  •*  End  of  data  switch*  Off  ■  0,  On  ■  1 
ITSV  *  Type  code  of  last  parameter  card  processed 
ITYPE  «  Sweep  type  code*  0  «  No  sweep 

1  *  Linear 

2  *  Logarithmic 

JRECO  *  Address  of  driver  record 
NFREC  *  Number  of  frequencies  this  generator 
NIMP  *  Number  of  impedances  this  generator 
RELANK  *  Right-justified  alphanumeric  blank 
STRING  =  Alphanumeric  string  representation  of  input 
value 

STOP  *  Stop  value  for  sweep 
TYPES  *  Valid  frequency  sweep  types 

SUBROUTINES  CALLED- 

ALPHA  CXDIV  DECIM  ERROR 

GENOUT  INTEG  NODEIN 

CALLING  PROGRAMS* 

PRCSS 

DESCRIPTION: 

Subroutine  GENIN  is  the  input  processor  for  GENERATOR  card 
seouences.  Its  function  is  to  decode  the  generator  input  data 
according  to  an  anticipated  format,  translating  the  input  into 
appropriate  data  and  driver  records  for  use  by  subsequent  NCAP 
phases . 


' 


Each  call  to  subroutine  GENIN  causes  a  single  NCAP  input 
card  to  be  processed.  The  card  image  and  its  type  code  are 
transmitted  through  common  storage  to  subroutine  GENIN  which 
processes  the  card  according  to  its  type  as  follows: 


TYPE=1 _  End  of  Card  Sequence 


The  closing  of  a  generator  definition  begins  by  testing  the 
frequency  and  impedance  specifications  for  errors.  Each 
generator  definition  must  contain  at  least  one  frequency  card 
(NFPEQ.GT.0)  and  either  a  constant  impedance  (NIMP=1)  or  one 


impedance 

card 

for 

each  possible 

frequency 

combinet ion 

NFREQ 

(NIMP=2  _!>. 

If  an 

improper  number 

of  frequencies 

and/or 

impedances 

have 

been 

specified,  subroutine  GENIN 

exits 

with  an 

appropriate  error  condition. 

Any  undefined  amplitude  values  are  assigned  the  default 

value : 

AMP  (1,1)  =  1.0 
AMP  (2,1)  =  0.0 

The  amplitude  data  is  then  stored  in  the  common  data  buffer  at 
EUFF(ll)  -  BUFF(30).  Subroutine  GENOUT  is  called  to  complete  the 
definition  of  the  generator  driver  and  data  records  and  to  write 
them  to  disk,  after  which  subroutine  GENIN  returns  to  the  calling 
program . 
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TYPE=3  Impedance  Card 


The  card  type  card  is  saved  in  ITSV,  the  number  of 
impedances  NIMP  is  incremented,  and  the  IMP  identifier  is  decoded 
by  subroutine  ALPHA.  The  real  part  of  the  impedance  value  is 
decoded  and  formatted  by  subroutine  DECIM  and  stored  in  IMPS(1, 
NIMP) .  If  the  end-of-data  is  encountered  (ISW=1) ,  the  imaginary 
part  of  the  impedance  value  is  assigned  the  default  value  zero. 
Otherwise  the  imaginary  part  of  the  impedance  value  is  decoded 
and  formatted  by  subroutine  DECIM  and  stored  in  IMPS(2,  NIMP). 
The  impedance  value  is  then  converted  to  an  admittance  by 
subroutine  CXDIV. 

At  this  point  the  end-of-data  switch  ISW  is  used  to 
determine  the  presence  of  an  impedance  combination  on  the  card. 
If  the  end-of-data  switch  is  on  (ISW=1) ,  subroutine  GENIN  exits 
after  setting  the  impedance  code  BUFF (NIMP  +  40)  =  0  to  indicate 
a  constant  impedance. 

If  the  end-of-data  is  off  (ISW=0) ,  the  impedance  combination 
is  extracted  from  the  card  image,  converted  to  an  impedance  code, 
and  appended  to  the  impedance  code  table  at  BUFF(NIMP  +  40) . 
Each  digit  of  the  impedance  combination  is  represented  in  the 
impedance  code  IMTBL  by  the  bit  position  of  like  number.  For 
example,  if  the  digit  3  is  included  in  the  combination,  the  3rd 
bit  of  IMTBL  is  turned  on  by  IMTBL  =  22.  Beginning  with  the 
first  digit  of  the  combination  stored  at  CARD  (IPOS) ,  each  digit 
is  mapped  to  the  proper  bit  position  and  accumulated  in  IMTBL  as 
follows  r 


INTEL  =  INTEL  +  (2**  (CAFD(J-l)  -1)) 


This  process  continues  under  the  control  of  the  index  J  until 
either  CARD(J)  is  a  blank  or  six  digits  have  been  used.  The 
resulting  code  is  placed  in  the  impedance  code  table  at  BUFF (NIMP 
+  40)  and  subroutine  GEN IN  returns  to  the  calling  program. 


TYPE=4  Frequency  Card 


The  card  type  code  is  saved  in  ITSV,  the  number  of 
frequencies  NFPEC  is  incremented,  and  the  FR  identifier  is 
decoded  by  subroutine  ALPHA.  The  frequency  number  is  decoded  and 
formatted  by  subroutine  INTEG  and  stored  in  FNO(NFPEC) .  The 
frequency  value  is  decoded  and  formatted  by  subroutine  CECIN.  and 
stored  in  FREO(NFREC).  If  the  frequency  number  is  zero, 
subroutine  GENIN  exits  with  an  appropriate  error  condition. 

At  this  point  the  end-of-data  switch  ISW  is  used  to 
determine  the  presence  of  freouency  sweep  parameters  on  the  card. 
If  the  end-of-data  switch  is  on  (ISW=1) ,  the  parameters  ITYPE  and 
INC  are  set  to  indicate  no  sweep.  Otherwise  the  STOP,  INC,  and 
ITYPE  parameters  are  decoded  and  formatted  by  subroutine  DECIM, 
INTEG,  and  ALPHA  respectively. 

The  sweep  type  is  tested  against  a  table  of  valid 

alphanumeric  types.  If  no  match  is  found,  subroutine  GENIN  exits 

with  an  appropriate  error  condition.  If  a  match  is  found,  the 

sweep  type  is  encoded  in  ITYPE (NFPEC) .  the  frequency  number  and 

value  are  placed  in  the  common  data  buffer  PUFF,  and  subroutine 
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GENIN  returns  to  the  calling  program. 


TYPE=6  Node  Card 

The  card  type  code  is  saved  in  ITSV  and  the  amplitude  data 
area  AMP  is  cleared.  The  nodes  of  connection  are  extracted  from 
the  card  image,  formatted,  and  stored  in  MISC(3)  and  MISC(4)  of 
the  driver  record  by  subroutine  NODEIN.  Subroutine  GENIN  returns 
to  the  calling  program. 


TYPE=7  Amplitude  Card 


To  assure  that  amplitude  data  are  properly  associated  with 
frequency  data,  each  amplitude  card  must  physically  follow  a 
frequency  card  in  the  input  deck.  Therefore  if  the  last  card 
processed  was  not  a  frequency  card  (ITSV  t  4) ,  subroutine  GENIN 
exits  with  an  appropriate  error  condition. 

Otherwise  the  card  type  code  is  saved  in  ITSV  and  the  AMP 


identi f ier 

is  decoded 

by 

subroutine  ALPHA 

.  The 

real 

and 

imaginary 

parts  of 

the 

complex  amplitude 

are 

decoded 

and 

formatted 

by  subroutine 

DECIM  and  stored  in 

AMP ( 1 , 

NFREQ) 

and 

AMP (2,  NFREC) . 


GENOUT 


DATAWR 


DRIVWR 


ERROR 


DRIVRD 


NAME:  GENOUT 


TYPE:  SUBROUTINE 

GENERAL  PURPOSE: 

Tests  for  errors  in  generator  and  modify  generator  input, 
writes  input  data  to  file  20  and  driver  record  to  file  21, 
creates  and  writes  frequency  sweep  data  and  driver 
records 

VARIABLES: 

FNO  *  User-assigned  frequency  numbers 

FREQ  *  Frequency  values 

INC  *  Number  of  steps  in  frequency  sweep 
ITYPE  =  Sweep  type  code;  0  =  No  sweep 

1  =  Linear 

2  =  Logarithmic 

JRECO  =  Address  of  generator  or  modify  driver  record 
NFREQ  =  Number  of  frequencies  this  generator 
NIT  =  Maximum  number  of  sweep  iterations  this 
generator 

STRING  =  Alphanumeric  string  representation  of  input 
value 

STEP  *  Sweep  increment  value 

STOP  *  Stop  value  for  sweep 
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SUBROUTINES  CALLED  * 


DATAWF  DRIVRD  DRIVWR  ERROR 

CALLING  PROGRAMS- 
GENIN  MODGIN 

DESCRIPTION- 

Subroutine  GENOUT  handles  the  output  of  data  and  driver 
records  for  the  generator  input  processing  subroutines  GENIN  and 
MODGIN,  closing  the  generator  and  modify  generator  definitions. 

First  the  input  processed  by  GENIN  or  MODGIN  is  tested  for 
errors,  if  the  node  card  is  missing  (NABT^0)  or  the  input  error 
switch  is  on  (JABT=1) ,  return  is  made  to  the  calling  program  with 
an  appropriate  error  condition.  Otherwise  the  data  record  is 
written  to  file  20  from  the  common  data  buffer  BUFF  by  subroutine 
DATAWR. 

The  generator  data  record  contains  230  words  allocated  as 
follows • 

BUFF (1) - (10)  Frequency  Values 

BUFF(ll) - (30)  Complex  Amplitudes 

BUFF(31) - (40)  User-assigned  Frequency  Numbers 

BUFF (4 1 ) - ( 10 3)  Impedance  Combination  Codes 

BUFF(104) - (230)  Complex  Impedance  Values 

After  the  data  record  has  been  writte'n  to  disk,  its  record 
number  is  stored  at  STADD  and  the  next  available  file  20  storage 
location  is  updated  to  point  beyond  the  generator  data  by 
DATREC*DATPEC+230 .  The  frequency  values,  amplitudes,  and 


*  r 


frequency  numbers  stored  in  BUFF(l)-(40)  are  then  rewritten  to 
the  data  file  at  record  number  DATREC  and  the  next  available  file 
20  storage  location  is  updated  to  point  beyond  the  re-written 
data  by  DATREC=DATREC+40 .  (This  re-write  file  is  later  used  by 
Phase  4  to  restore  the  original  freouency  data  after  execution  of 
a  frequency  sweep.) 

The  driver  record  parameters  defined  in  the  input  processor, 
GENIN  or  MODGIN,  are  transmitted  through  common  storage  to 
subroutine  GENOUT.  Here  the  remaining  driver  parameters  are 
defined  and  the  record  is  written  by  subroutine  DRIVWR  to  file  21 
from  the  first  ten  words  of  global  common.  The  complete  driver 
record  is  comprised  of- 

M0DE=3  or  21  Generator  or  Modify  Generator 

Identifier 

STADD  Data  File  Record  Number 

LNGTH=230  Length  of  Data  Record  in  Words 

MISC (1 ) =NFREQ  Number  of  Freauencies 

MISC ( 2 ) =NIMP  Number  of  Impedances 

MISC  (3)  Positive  Node  of  Connection 

MISC  (4)  Negative  Node  of  Connection 

MISC (6 ) =NIT  Number  of  Sweep  Iterations 

Other  MISC  driver  parameters  are  not  used. 

Unlike  most  NCAP  input  card  sequences  which  map  to  a  single 
driver  and  data  record,  generator  and  modify  generator  card 
seouences  result  in  one  or  more  driver  records,  each  with  an 
associated  data  record.  The  number  of  driver  records  is  related 

to  the  number  of  sweep  iterations  defined  in  the  card  sequence. 
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If  freouency  sweeping  is  not  specified  in  the  card  sequence 
(i.e.,  ITYPF ( I ) =0  for  all  1*1,  NFREQ) ,  the  card  sequence  has  only 
a  single  M0DE=3  or  21  driver  record  associated  with  it  and 
subroutine  GENOUT  returns  to  the  calling  program  without  further 
processing . 

Otherwise  the  sweep  specifications  must  be  translated  into 
appropriate  driver  and  data  records.  First  the  number  of  sweep 
iterations,  NIT,  is  derived  from  the  largest  INC  parameter 
specified  in  the  generator  or  modify  generator  card  sequence. 
(Each  of  the  NIT  sweep  iterations  causes  one  driver  and  data 
record  to  be  created  internally  and  appended  to  the  disk  files.) 

Then  a  sweep  increment  STEP (I)  is  calculated  for  each 
frequency  value  in  the  generator  definition.  The  increment  is  a 
function  of  the  original  frequency  value  FREQ(I)  and  the  STOP, 
INC,  and  ITYPE  parameters  associated  with  that  frequency*  as 
follows : 

1)  For  ITYPE ( I ) =1 ,  linear  sweep  is  indicated  and: 

S TF P ( I ) =  STOP (I)  ~  FREQ ( I| 

INC ( I )  -  1. 


2)  For  ITYPE(I)=2,  logarithmic  sweep  is  indicated  and* 


r  -  _ i_. _ 

STEP (I) =  i  STOP (I)  INC ( I ) -1 . 

i  FREQ(I)  i 
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After  the  increments  have  been  calculated,  the  sweep  driver 
and  data  records  are  created  and  appended  to  the  disk  files. 
Like  standard  driver  records,  sweep  driver  records  are  developed 
in  the  first  ten  words  of  global  common.  A  frequency  sweep 
driver  record  consists  of: 


MODE=l 2 

Freouency 

Sweep  Identifier 

STADD 

Data  File 

Record  Number 

LNGTH=40 

Length  of 

Data  Record  in  Words 

MISC (1) =NFREQ 

Number  of 

Freouencies 

MISC  ( 2 ) =NIMP 

Number  of 

Impedances 

MISC  ( 3 ) 

Positive  Node  of  Connection 

MISC  (4 ) 

Negative  Node  of  Connection 

MISC (6) =NIT 

Number  of 

Sweep  Iterations 

Other  MISC  driver  parameters  are  not  used. 

Frequency  sweep  data  records  have  the  same  structure  as  the 
first  40  words  of  the  original  generator  data  record  and  are 
developed  in  the  common  data  buffer  BUFF  by  an  iterative  process. 
The  first  sweep  data  record  is  derived  from  the  original 
generator  data  by  performing  an  incrementation  operation  on  each 
frequency  value  BUFF(J),  J=1 ,NFREQ  according  to  its  corresponding 
STEP (J) ,  STOP ( J) ,  and  ITYPE(J)  parameters: 

1)  For  I TYPE ( J ) =0 ,  no  sweep  is  indicated.  No  incremen¬ 
tation  is  performed  and  the  freouency  value  remains 
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constant  at  BUFF(J). 


2)  For  ITYPE ( J) =1 ,  linear  sweep  is  indicated  and  the 
incrementation  is  additive: 

PUFF (J) =BUFF ( J)  +  STEP ( J) 

unless  STOP ( J)  is  exceeded,  in  which  case  the  fre- 
ouency  remains  constant  at  its  last  value. 

3)  For  ITYPE (J)=2,  logarithmic  sweep  is  indicated  and 
the  incrementation  is  multiplicative: 

BUFF (J) =BUFF(J)  *  STEP(J) 

If  STOP ( J)  is  exceeded,  the  frequency  value  remains 
constant  at  STOP(J). 

After  every  frequency  value  in  the  buffer  has  been  updated, 
the  new  data  record  is  written  to  file  20  at  record  number  DA^REC 
by  subroutine  DATAWR.  The  next  available  file  20  storage 
location  is  updated  to  DATREODATREC  +  40  and  subroutine  DRIVWR 
is  called  to  write  the  sweep  driver  record  to  file  21.  The  data 
record  number  STADD  is  updated  and  program  control  transfers  back 
to  process  the  next  sweep  iteration.  The  creation  of  sweep 
records  continues  under  the  control  of  the  index  I  until  all  NIT 
sweep  iterations  have  been  translated  into  data  and  driver 
records . 

The  original  generator  or  modify  generator  driver  record  is 
read  from  the  driver  file  by  subroutine  DRIVRD  according  to  the 
record  number  JRECO  transmitted  to  subroutine  GENOUT  as  an 


argument.  After  storing  the  sweep  iteration  count  NIT  in 
MISC(6),  the  updated  driver  record  is  re-written  by  subroutine 
DRIVWR. 

After  the  MODE  is  restored  to  3  and  the  data  file  record 
number  STADD  is  updated,  subroutine  GENOUT  returns  to  the  calling 


program. 


NAME: . INTEG 


TYPE-  SUBROUTINE 

GENERAL  PURPOSE* 

Decodes  and  formats  an  integer  input  value  by  converting  the 
characters  stored  in  CARD(IPOS)  through  CARD(J-l)  to  a 
fixed  point  number  returned  in  K 

VARIABLES: 

CARD  =  Right-justified  alphanumeric  card  image 

IPOS  =  Position  of  first  character  to  be  formatted 

ISW  =  End  of  data  switch:  off  =0,  on  =  1 

J  =  Position  of  last  character  to  be  formatted+1 

K  =  Integer  value  returned 

STRING  =  Alphanumeric  string  representation  of  input 

value 

SUBROUTINES  CALLED- 
SCAN 

CALLING  PROGRAMS: 

GENIN  LCIN  LDSIN  MODCIN  NCIN 

NDSIN  NODEIN  PLOTIN  PSIN 


DESCRIPTION: 

Subroutine  INTEG  decodes  and  formats  a  free-forr  integer 
input  value.  Input  to  the  routine  is  the  r ight-justif ied 
alphanumeric  card  image  stored  in  the  integer  array  CARD  and  the 
character  position  IPOS  at  which  the  datum  begins. 

The  contiguous  characters  CARD(IPOS)  through  CARD(J-l)  which 
comprise  the  integer  input  value  are  extracted  from  the  card 
image  and  converted  to  a  right-justified  alphanumeric  string  by 
subroutine  SCAN.  The  character  string  returned  in  the  integer 
array  STRING  is  then  converted  from  alphanumeric  representation 
to  an  integer  value  K  by: 

DECODE  (STRING, 2)  K 
2  FORMAT  (112) 

Arguments  returned  by  subroutine  INTEG  are  the  integer  input 
value  K,  the  updated  character  position  IPOS  which  indicates  the 
first  character  position  of  the  next  data  value  on  the  card,  and 
the  end-of-data  switch  ISW. 
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UNCLASSIFIED 


NAME:  JFETIN 


TYPE:  SUBROUTINE 


GENERAL  PURPOSE 


Processes  * JFET  card  sequence  according  to  the  value  of 


TYPE 


Type  =  6  Node 


VARIABLES 


Input  constant 


ICOEF 


Word  counter  for  parameter  input 
Word  counter  for  AC  input 
Word  counter  for  BP  input 


NXTAC 


NXTB 


NXTC  ■  Word  counter  for  CP  input 

PS  ■  Input  constant 

STRING  ■  Alphanumeric  string  representation  of  input 

value 

SUBROUTINES  CALLED: 

ALPHA  DATOUT  DECIM  DRIVWR 
ERROR  NODEIN 

CALLING  PROGRAMS: 

PRCSS 

DESCRIPTION: 

Subroutine  JFETIN  is  the  input  processor  for  JFET  (Junction 

Field  Effect  Transistor)  card  sequences.  Its  function  is  to 

decode  the  JFET  input  data  according  to  an  anticipated  format, 

translating  the  input  into  appropriate  data  and  driver  records 
% 

for  use  by  subsequent  NCAP  phases. 

Each  call  to  subroutine  JFETIN  causes  a  single  NCAP  input 
.card  to  be  processed.  The  card  image  and  its  TYPE  code  are 
transmitted  through  common  storage  to  subroutine  JFETIN  which 
processes  the  card  according  to  its  TYPE  as  follows* 

TYPE*1  End  of  Card  Sequence 

The  closing  of  a  JFET  definition  begins  by  testing  the  input 


.  - 


for  errors.  Subroutine  JFETIN  exits  with  an  appropriate  error 
condition  if  any  of  the  following  input  errors  are  detected- 

1)  No  BP  or  CP  coefficients  were  processed  (NXTE=0) 
or  (NXTC=0)  when  coefficient  input  was  specified 

*  v 

(MISC(2)=1) 

2)  Fewer  than  8  parameters  were  processed  (NXTAC  <,LT .  8 ) 
when  analytic  generation  of  coefficients  was  specified 
(MISC  (2) =2) 

3)  CONSTANTS  card  missing  (MISC  (1) =0) 

Otherwise  subroutine  DATOUT  is  called  to  complete  the  driver 
record  and  to  close  the  JFET  definition  by  writing  the  driver  and 
data  records  to  disk. 

The  driver  record  is  written  to  file  21  from  the  first  ten 
words  of  global  common  and  consists  of: 

MODF=20  JFET  Identifier 

STADD  Data  File  Pecord  Number 

LNGTH=64  Length  of  Data  File  in  Words 

MISC(2)=1  or  2  Method  of  Deriving  Coef f icients - 

i 

l=Input,  2=Analytic  generation 
MISC(3)  Base  Node  of  Connection 

Other  MISC  driver  parameters  are  not  used. 

The  JFET  data  record,  written  to  file  20  from  the  common 
data  buffer  BUFF  is  64  words  in  length.  This  record  allocates 
sufficient  disk  storage  for  the  JFFT  input  values  as  well  as  all 
other  data  generated  internally  by  its  model  in  subsequent  NCAP 
phases  : 

PUFF ( 1 ) - ( 10 )  P-Parameters  Input 
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BUFF (11) - (20) 
BUFF (21) - (22) 
BUFF ( 23) - (32) 
BUFF (33) - (64) 


C-Parameters  Input 
Constants  Input 
Nonlinear  Coefficients 
Admittance  Submatrix 


After  returning  from  subroutine  DATOUT,  the  parameter  counts 
NXTB ,  NXTC,  and  NXTAC  and  the  parameter  type  code  ICOEF  are 
cleared,  and  return  is  made  to  the  calling  program. 


TYPE=2  Parameter  Card 

If  the  parameter  type  code  is  undefined  (ICOEF. LT. 0) , 
subroutine  JFETIN  exits  with  an  appropriate  error  condition. 
Otherwise  the  parameters  are  decoded  and  formatted  according  to 
the  parameter  code  ICOEF  which  identifies  the  type  of  parameters 
being  processed  (1=EP,  2=CP,  3=AC)  and  causes  them  to  be  input 
accordingly. 


TYPE=6  Node  C a r d_ 

The  base  node  of  connection  is  extracted  from  the  card 
image,  formatted,  and  stored  in  MISC(3)  by  subroutine  NODEIN. 


TYPE* 11 


Constants  Card 


The  CONSTANTS  identifier  is  decoded  by  subroutine  ALPHA,  and 
the  constant  values  CGD  and  PS  are  decoded  and  formatted  by 
subroutine  DFCIM .  MISC(l)  is  set  to  1  to  signal  that  the 
constants  have  been  read  and  subroutine  JFETIN  returns  to  the 
calling  program. 

TYPE=1 2  PP  Card 

The  B-parameter  count  is  initialized  (NXTP=1),  MISC(2)  is 
set  to  indicate  that  coefficients  are  to  be  read  rather  than 
analytically  generated,  and  the  parameter  code  is  set  to  indicate 
B-parameters  (IC0EF=1) .  The  BP  identifier  is  decoded  by 
subroutine  ALPHA  and  if  the  end-of-data  is  encountered  (ISW=1) , 
subroutine  JFETIN  returns  to  the  calling  program. 

Otherwise  from  one  to  ten  decimal  values  are  extracted  from 
the  card  image,  formatted,  and  stored  in  the  common  data  buffer. 
B-coe f f icients  appearing  on  the  BP  card  as  well  as  those  input  on 
unlabelled  parameter  cards  following  the  PP  card  (TYPE=2  and 
ICOEF=l)  are  processed  at  this  point.  The  number  of  values 
decoded  and  their  placement  in  the  buffer  depend  on  the 
P-parameter  count,  NXTB ,  and  the  end-of-data  switch,  ISW.  NXTD 
contains  the  next  buffer  location  available  for  parameter 
storage,  which  beqins  at  P (NXTB)  and  proceeds  through  successive 
buffer  locations  as  data  values  are  decoded  by  subroutine  DECI’1’. 

If  an  end-of-data  is  encountered  (ISW=1)  before  P  ( 1  Cl )  is 
filled,  the  parameter  count  is  reset  to  the  next  available  buffer 


location  (NXTF=NK)  and  control  returns  to  the  calling  program  in 
anticipation  of  additional  parameter  cards. 

TyPF=1.1  CP  Card 

The  C-raraireter  count  is  initialized  (rXTC=l).  N’ISC  ( 2 )  is 
set  to  indicate  that  coefficients  are  to  be  read  rather  than 
analytically  Generated,  and  the  parameter  code  is  set  to  indicate 
C-parameters  (IC0FF=2) .  The  CP  identifier  is  decoded  by 
subroutine  ALPHA  and  if  the  end-of-data  is  encountered  (ISW=1) , 
subroutine  JFETIN  returns  to  the  calling  program. 

Otherwise  the  decoding,  formatting,  and  storage  technique 
for  C-parameters  is  identical  to  that  of  B-parameters  except  that 
NXTC  is  used  for  the  parameter  count  and  storage  is  from  C(l) 
through  C  (10)  . 

TYPE=1 4  AC  Card 

MISC{2)  is  set  to  indicate  that  coefficients  are  to  be 

analytically  generated  rather  than  read,  the  AC-parameter  count 

* 

is  initialized  (NXTAC*1) ,  and  the  parameter  code  is  set  to 
indicate  AC-parameters  (IC0EF=3) .  The  AC  identifier  is  decoded 
by  subroutine  ALPHA  and  if  the  end-of-data  is  encountered 
(ISW=1) ,  subroutine  JFETIM  returns  to  the  calling  program. 

Otherwise  the  decoding,  formatting,  and  storage  technique 
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for  AC-par ameters  is  identical  to  that  of  B-par ameters  except 
that  NXTAC  is  used  for  the  parameter  count. 

Any  other  value  of  TYPE  constitutes  an  input  error  which  is 
handled  bv  subroutine  ERROR  before  exit  to  the  calling  program. 
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NAME:  LCIN 


TYPE:  SUBROUTINE 

GENERAL  PURPOSE: 

Processes  *LINEAR  COMPONENTS  card  sequence  according 
to  the  value  of  TYPE: 

Type  =  1  End  of  card  sequence 

Type  =  8  Resistor 

Type  =  9  Capacitor 

Type  =  10  Inductor 

VARIABLES: 

INC  =  Number  of  increments  for  sweep 

ISW  =  End  of  data  switch;  Off  =0,  On  =  1 

ITYPE  *  Sweep  code;  0  =  No  sweep 

1  =  Linear 

2  =  Logarithmic 

M  =  Intermediate  storage  of  sweep  type 

NCOMP  =  Length  of  linear  component  data  record  in  words 
NIT  =  Maximum  number  of  sweep  iterations 
NODEA  =  Positive  node  of  connection 
NODEB  =  Negative  node  of  connection 
NUM  =  Number  of  linear  components  this  card 
sequence 

STRING  =  Alphanumeric  string  representation  of  input 
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STEP 


Sweep  increment  value 


STOP  *  Sweep  stop  value 


TYPES 


Valid  sweep  types 


SUBROUTINES  CALLED: 


ALPHA  DATAWR  DECIM  DRIVWR  DRVOUT 

ERROR  INTEG 


CALLING  PROGRAMS 


PRCSS 


DESCRIPTION: 

Subroutine  LCIN  is  the  input  processor  for  LINEAR  COMPONENTS 
card  sequences.  Its  function  is  to  decode  the  linear  components 
input  data  according  to  an  anticipated  format,  translating  the 
input  into  appropriate  data  and  driver  records  for  use  by 
subsequent  NCAP  phases. 

Unlike  most  NCAP  input  card  sequences  which  map  to  a  single 
driver  record  and  a  data  record  of  fixed  length,  linear 
components  card  sectuences  result  in  one  or  more  driver  records, 
each  with  an  associated  data  record  of  variable  length.  The 
number  of  driver  records  generated  is  related  to  the  number  of 
linear  component  sweep  iterations  defined  in  the  card  sequence, 
while  the  length  of  each  data  record  depends  on  the  number  of 
components  defined  in  the  card  sequence. 

Each  call  to  subroutine  LCIN  causes  a  single  NCAP  input  card 
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to  be  processed.  The  card  image  and  its  TYPE  code  are 
transmitted  through  common  storage  to  subroutine  LCIN  which 
processes  the  card  according  to  its  TYPE  as  follows: 


TYPE=1 _ End  of  Card  Sequence 


The  closing  of  a  linear  components  definition  begins  by 

testing  the  input  for  errors.  If  no  linear  component  cards  were 

processed  (NCOMP . LE . 0 )  or  if  the  input  error  switch  is  on 

( JAPT=1 ) ,  return  is  made  to  the  calling  program  with  an 

appropriate  error  condition.  Otherwise  the  data  record  is 

written  to  file  20  from  the  first  NCOMP  words  of  the  common  data 

« 

buffer  PUFF  by  subroutine  DATAWR. 

The  linear  components  data  record  is  structured  as  a  series 
of  NUM  contiguous  4-word  entries,  one  for  each  linear  component 
defined  in  the  card  sequence: 

PUFF (1 ) - (4 )  First  Component  Definition 

BUFF (5) -(8)  Second  Component  Definition 


PUFF (NCOMP-3) - (NCOMP)  Last  Component  Definition 
The  first  word  of  each  entry  contains  an  integer  code 
representing  the  component  type-  1  =  Resistor,  2  =  Capacitor,  3 
=  Inductor.  The  second  and  third  words  represent  the  positive 
and  negative  nodes  of  connection.  The  fourth  word  contains  the 
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value  of  the  component: 

BUFF(l) ,  (5) , . . . (NCOMP-3)  Component  Codes 

BUFF (2) , (6) , . . . (NCOMP-2)  Positive  Nodes  of 

Connection 

BUFF(3) , (7) , . . . (NCOMP-1)  Negative  Nodes  of 

Connection 

BUFF(4) , (8) , . . . (NCOMP)  Component  Values 

The  linear  components  driver  record  is  written  by  subroutine 
DPVOUT  to  file  21  from  the  first  ten  words  of  global  common, 
where : 

MODE*4  Linear  Component  Identifier 

STADD  Data  File  Record  Number 

LNGTH=NCOMP  Length  of  Data  Record  in  Words 

MISC  (1)  =NCOMP  Number  of  Linear  Components  x  4 

Other  MISC  driver  parameters  are  not  used. 

If  component  sweeping  is  not  specified  in  the  card  sequence 
(i.e.  INC ( I ) =0  for  all  1=1, NUM),  subroutine  LCIN  returns  to  the 
calling  program  without  further  processing.  Otherwise  the  sweep 
specifications  are  translated  into  appropriate  driver  and  data 
records.  First  the  number  of  sweep  iterations,  NIT,  is  derived 
from  the  largest  INC  parameter  specified  in  the  linear  component 
card  sequence.  (Each  of  the  NIT  sweep  iterations  causes  one 
driver  and  data  record  to  be  generated  internally  and  appended  to 
the  disk  files.) 

Then  a  sweep  increment  STEP(I)  is  calculated  for  each  of  the 
NUM  components  in  the  card  seouence.  The  increment  is  a  function 
of  the  original  component  value  stored  at  BUFF  (1*4)  and  the 

4 
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STOP,  INC,  and  ITYPE  parameters  associated  with  the  component  as 
follows : 

1)  For  ITYPE ( I ) =0 ,  no  sweep  is  assumed  and  STEP(I)=0. 

2)  For  ITYPE (I) =1 , linear  sweep  is  indicated  and: 

STEP ( I )  =  STOP ( I ) -BUFF ( J ) 

INC (I) -1 . 


3)  For  ITYPE (I) =2,  logarithmic  sweep  is  indicated 


STEP (I)  = 


STOP (I) 
BUFF ( J ) 


INC ( I ) -1 


After  the  increments  have  been  calculated  the  sweep  driver 
and  data  records  are  created  and  appended  to  the  disk  files. 
Like  standard  driver  records,  sweep  driver  records  are  developed 
in  the  first  ten  words  of  global  common.  A  component  sweep  data 
record  consists  of: 


MODE=24 

STADD 

LNGTH=NCOMP 
MISC  (1) =NCOMP 


Component  Sweep  Identifier 
Data  File  Record  Number 
Length  of  Data  Record  in  Words 
Number  of  Components  x  4 


Sweep  data  records  have  the  save  structure  as  original 
linear  component  data  records  and  are  developed  in  the  common 
data  buffer  BUFF  by  an  iterative  process.  The  first  sweep  data 
record  is  derived  from  the  original  linear  component  data  record 
in  BUFF  by  performing  an  incrementation  operation  on  each 
component  value  according  to  its  corresponding  STEP,  STOP,  and 
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ITYPE  parameters.  The  NUM  component  values  in  the  buffer  are 
incremented  one-by-one  under  the  control  of  the  index  J.  Each 
component  has  a  corresponding  STEP(J)r  STOP(J),  and  ITYPE(J) 
which  define  the  incrementation  performed  on  its  value  stored  at 
BUFF ( J*4 ) t 

1)  For  ITYPE (J)=0,  no  sweep  is  indicated.  No 
incrementation  is  performed  and  BUFF(J*4)  remains 
constant  at  its  original  value. 

2)  For  ITYPE (J)*l,  linear  sweep  is  indicated  and  the 
incrementation  is  additive.  For  K=J*4: 

BUFF (K) =BUFF (K) +STEP ( J) 

unless  STOP(J)  is  exceeded,  in  which  case  BUFF(K) 
remains  constant  at  its  last  value. 

3)  For  ITYPE(J)=2,  logarithmic  sweep  is  indicated  and 
the  incrementation  is  multiplicative.  For  K=J*4: 

BUFF(K)=BUFF(K) *STEP(J) 

If  STOP ( J)  is  exceeded,  BUFF (K)  remains  constant 
at  STOP ( J) . 

After  every  component  value  in  the  buffer  has  been  updated, 
the  new  data  record  is  written  to  file  20  at  record  number  DATRFC 
by  subroutine  DATAWR.  Then  subroutine  DRIVWR  is  called  to  write 
the  sweep  driver  record  to  file  21.  The  data  record  number  STADD 
is  updated  and  program  control  transfers  back  to  process  the  next 
sweep  iteration.  The  creation  of  sweep  records  continues  under 
the  control  of  the  index  I  until  all  NIT  sweep  iterations  have 
been  translated  to  data  and  driver  records.  Subroutine  LCIN 
returns  to  the  calling  program  after  restoring  MODE  to  4. 


3-13L 


. . . . 


TYPE=8,  9,  or  10  Resistor,  Capacitor,  or  Inductor  Card 

The  data  record  length  NCOMP  is  incremented  to  accommodate  a 
new  four-word  component  definition  and  the  component  count  NUM  is 
calculated.  If  more  then  50  linear  components  have  ben  processed 
in  the  card  sequence  (NUM.GT.50),  subroutine  LCIN  exits  with  an 
appropriate  error  condition.  Otherwise  the  new  component  code  is 
set  to  TYPE-7  and  stored  in  BUFF (NCOMP-3) . 

Subroutine  LCIN  anticipates  the  input  of  a  component 
identifier,  two  nodes  of  connection,  and  a  component  value  for 
each  component  in  the  card  sequence.  Furthermore,  for  element 
sweeping,  three  sweep  parameters  are  also  expected.  During 
decoding  of  the  input  card,  if  an  end-of-data  is  encountered 
(ISW=1)  before  all  the  required  parameters  have  been  processed, 
subroutine  LCIN  exits  with  an  appropriate  error  condition. 

The  R,  C,  or  L  identifier  is  decoded  by  subroutine  ALPHA. 
The  nodes  of  connection  are  decoded  and  formatted  by  subroutine 
INTEG  and  stored  in  BUFF (NCOMP-2)  and  BUFF (NCOMP-1 ) .  The 
component  value  is  decoded  and  formatted  by  subroutine  DECIM  and 
stored  in  PUFF(NCOMP).  If  the  component  value  is  zero, 
subroutine  LCIN  exits  with  an  appropriate  error  condition. 

At  this  point  ISW  is  used  to  determine  the  presence  of 
component  sweep  parameters  on  the  card.  If  the  end-of-data 
switch  is  on  (ISW=1) ,  the  subroutine  assumes  no  sweeping  and 
exits  after  disabling  the  sweep  parameters  ITYPE  and  INC. 
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Otherwise  the  STOP,  INC,  and  ITYPE  parameters  are  decoded  and 
formatted  by  subroutine  DECIM,  INTEG,  and  ALPHA  respectively. 

The  sweep  type  is  tested  against  a  table  of  valid 
alphanumeric  types.  If  a  match  is  found  the  sweep  type  is 
encoded  in  ITYPE (NUM)  and  subroutine  LCIN  returns  to  the  calling 
program.  If  no  match  is  found,  subroutine  LCIN  exits  with  an 
appropriate  error  condition. 

Any  other  value  of  TYPE  constitutes  an  input  error  which  is 
handled  by  subroutine  ERROR  before  exit  to  the  calling  program. 


NAME:  LDSIN 


l 


TYPE:  SUBROUTINE 


GENERAL  PURPOSE: 


Processes  *LINFAP  DEPENDENT  SOURCE  card  sequence 
according  to  the  value  of  TYPE: 


Type 

1 

End  of  card  sequence 

Type 

= 

2 

Parameter  card 

Type 

= 

6 

Node  card 

Type 

= 

8 

Resistor 

Type 

= 

9 

Capacitor 

Type 

= 

10 

Inductor 

Type 

= 

18 

VC 

Type 

= 

19 

CC 

Type 

= 

20 

VV 

Type 

= 

21 

CV 

VARIAPLFS : 

l 

A  =  Positive  node  of  connection 

B  =  Neqative  node  of  connection 

C  =  Value  of  parallel  capacitor 

Cl  *  Imaginary  part  of  complex  scale  factor 
CP  =  Real  part  of  complex  scale  factor 

ISW  =  End  of  data  switch-  Off  =0,  On  =  1 

L  =  Value  of  parallel  inductor 

NW  =  Word  counter  for  parameter  input  -» * 
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R 


Value  of  parallel  resistor 


STRING  *  Alphanumeric  string  representation  of  input 
value 

SOURCE  =  Type  of  source-  1  =  VC 

2  =  CC 

3  =  VV 

4  =  CV 

XX  =  Positive  node  of  dependence 

YY  =  Negative  node  of  dependence 

SUPPCUTINES  CALLED- 

ALPHA  DATAWR  DECIM  DRIVER 

ERROR  INTEC 

CALLING  PROGRAMS- 
PRCSS 

DESCRIPTION : 

Subroutine  LDSIN  is  the  input  processor  for  LINEAR  DEPENDENT 
SOURCE  card  sequences.  Its  function  is  to  decode  the  linear 
dependent  source  input  data  according  to  an  anticipated  format, 
translating  the  input  into  appropriate  data  and  driver  records 
for  use  by  subseouent  NCAP  phases. 

Each  call  to  subroutine  LDSIN  causes  a  single  NCAP  input 
card  to  be  processed.  The  card  image  and  its  TYPE  code  are 
transmitted  through  common  storage  to  subroutine  LDSIN  which 
processes  the  card  according  to  its  TYPE  as  follows* 
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TYPE=1 


End  of  Card  Sequence 


The  closing  of  a  linear  dependent  source  definition  begins 
by  testing  the  input  for  errors.  Subroutine  LDSIN  exits  with  an 
appropriate  error  message  if  any  of  the  following  input  errors 
are  detected: 

1)  All  four  nodes  (A,  B,  XX,  and  YY)  are  zero  and  the 
card  seauence  is  not  a  modify  function  ( MODFY=0 ) 

2)  The  complex  scale  factor  (CP,  Cl)  is  zero 

3)  For  current  controlled  sources,  all  three  parallel 
components  (F,  C,  and  L)  are  zero 

4)  The  input  error  switch  is  on  (JABT=1) 

Otherwise  the  linear  dependent  source  data  record  is  written  to 
file  25?  from  the  common  data  buffer  BUFF  and  the  file  20  record 
number  DATREC  is  updated,  to  point  beyond  the  new  data  record. 

Because  the  linear  dependent  sources  do  not  transmit  any 
internally  generated  data  between  NCAP  phases,  their  data  records 
contain  only  input  values.  The  length  of  a  linear  dependent 
source  data  record  depends  on  the  type  of  source  specified: 
voltaqe  controlled  sources  require  2  words  of  data  storage,  while 
current  controlled  sources  require  5  words. 

After  the  data  record  has  been  written  to  disk,  subroutine 
DPVOUT  is  called  to  complete  the  driver  record  definition  and 
write  it  to  file  21.  The  linear  dependent  source  driver  record 
is  developed  in  the  first  ten  words  of  global  common  and  consists 


of  • 


MODE=25 

Linear  Dependent 

Source  Identifier 

STADD 

Data  File  Record 

Number 

LNGTH=2  or  5 

Length  of  Data  Record  in  Words 

KISC  (1) =SOUPCE 

Source  Code;  1=VC,  2=CC,  3=VV, 

4=CV . 

MISC  (3) =XX 

Positive  Node  of 

Dependence 

NISC  ( 4 ) =YY 

Negative  Node  of 

Dependence 

MISC  ( 5 ) =A 

Positive  Node  of 

Connection 

MISC (6) =P 

Negative  Node  of 

Connection 

After  returning  from  subroutine  DFVOUT,  subroutine  LDSIN  returns 
to  the  calling  program. 


TYPE=2  Parameter  Card 


One  or  two  decimal  input  values  are  extracted  from  the  card 
image,  formatted  and  stored  in  the  data  buffer.  The  number  of 
values  decoded  and  their  placement  in  the  buffer  depend  on  the 
parameter  count,  NXT,  and  the  end-of-data  switch,  ISW.  Upon 
entering  the  subroutine,  NXT  contains  the  number  of  values  input 
on  previous  data  cards.  Parameter  storage  begins  at  BUFF (NW) 
where  NW*NXT+1  and  proceeds  through  successive  locations  as  data 
values  are  decoded  by  subroutine  DECIM.  If  an  end-of-data  is 
encountered  (ISW=1)  before  PUFF(2)  is  filled,  the  parameter  count 
is  reset  to  the  last  buffer  location  used  (NXT*NW)  and  control 


«  *■ 


returns  to  the  calling  program  in  anticipation  of  additional 
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parameter  cards. 


TYPE-6  Node  Card 

The  NODE  identifier  is  decoded  by  subroutine  ALPHA.  Then 
the  nodes  of  dependence  and  nodes  of  connection  are  extracted 
from  the  card  image  and  formatted  by  subroutine  TNTEG  and  stored 
in  MISC(3)  through  MISC(6).  If  an  end-of-data  is  encountered 
(ISW-1)  before  four  node  numbers  have  been  decoded,  subroutine 
LDSIN  exits  with  an  appropriate  error  condition. 

TYPE-  8,  9,  or  10  Resistor,  Capacitor,  or  Inductor  Card 

The  R,  C,  or  L  identifier  is  decoded  by  subroutine  ALPHA. 
If  an  end-of-data  is  encountered  (ISW-1),  subroutine  LDSIN  exits 
with  an  appropriate  error  condition.  Otherwise  the  component 
value  is  extracted  from  the  card  image,  formatted  and  stored  at 
BUFF (TYPE-5 )  by  subroutine  DECIM. 

TYPF- _18,  19,  20,  or  21  VC  <  CC ,  VV,_or  CV  Card 

The  SOURCE  type  is  calculated  according  to  TYPF-17  and  the 
data  record  length  is  set-  LNGTH-2  for  voltage  controlled 
sources,  LNGTH-5  for  current  controlled  sources.  The  VC,  CC,  VV, 


or  CV  identifier  is  decoded  by  subroutine  ALPHA.  If  an 
end-of-data  is  encountered  (ISW=1) ,  subroutine  LDSIN  returns  to 
the  calling  program.  Otherwise  control  transfers  to  TYPE=2 
processing  for  the  remaining  data  on  the  card. 

Any  other  value  of  TYPE  constitutes  an  input  error  which  is 
handled  by  subroutine  ERROR  before  exit  to  the  calling  program.- 
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FAME •  MODGIN 

TYPE-  SUBROUTINE 

GENERAL  PURPOSE- 

Processes  *MODIFY  card  sequence  for  generator  modification 
according  to  the  value  of  TYPE • 

Type  =  1  •  End  of  card  sequence 

Type  =  3  Impedance 

Type  =  4  Frequency 

Type  =  7  Amplitude 


■*> 


Amplitude  values 

Modified  amplitude  value 

User-assigned  frequency  numbers 

Number  of  frequency  to  be  modified 

Freouency  values 

Modified  freouency  value 

End  of  data  switch-  Off  =0,  On  =  1 

Type  code  of  last  parameter  card  processed 

Sweep  code •  0  =  No  sweep 

1  =  Linear 

2  =  Logarithmic 
Modified  sweep  code 
Address  of  driver  record 
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NFFEC  *  Number  of  frequencies  this  generator 

NIT  «  Number  of  sweep  iterations  in  generator 

being  modified 

STRING  =  Alphanumeric  string  representation  of  input 
value 

STOP  =  Stop  value  for  sweep 

STOPC  =  Modified  stop  value 

TYPES  =  Valid  freauency  sweep  types 

SUBROUTINES  CALI-FD* 

ALPHA  L'ATAPD  DECIM  DRIVED  FPROP 
GENOUT  INTFG 

CALLING  PFOCRANS  • 

PPCSS 

DESCRIPTION  * 

Subroutine  MODGIN  is.  the  input  processor  for  MODIFY 


GFNFPATCP 

card  sequences. 

Its 

function 

is 

to  decode  the 

generator 

modification  input 

data 

according 

to 

an  anticipated 

format,  translating  the  input  into  appropriate  data  and  driver 
records  for  use  by  subsequent  NCAP  phases. 

Each  call  to  subroutine  f'ODGIN  causes  a  single  NCAP  input 
card  to  be  processed.  The  card  image  and  its  TYPE  code  are 
transmitted  through  common  storage  to  subroutine  KODGIN  which 
processes  the  card  according  to  its  TYPE  as  follows- 
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TYPE=1  End  of  Card  Sequence 


The  modify  generator  data  record  is  created  by  replacing  the 
frequency  and  amplitude  values  of  the  previous  generator  record 
with  the  updated  FFEC  and  AMP  values  processed  by  subroutine 
MODGIN.  After  saving  the  present  driver  record  number  in  JPECO, 
the  previous  generator  driver  record  is  read  by  subroutine  DFIVRD 
(its  record  number  is  obtained  by  backspacing  over  the  NIT 
frequency  sweep  driver  records  which  are  stored  between  it  and 
the  present  driver  record  at  DFVREC) .  Using  the  record  number 
STADC ,  the  previous  generator  data  is  read  from  file  20  by 
subroutine  DATAFD  and  stored  in  the  common  data  buffer  BUFF. 

The  updated  frequency  values  are  stored  in  BUFF(1)-(10)  and 
the  updated  amplitudes  in  BUFF (11) - (30) .  MODE  is  set  to  21  to 
identify  the  generator  modification  function,  the  node  card 
switch  is  disabled,  and  subroutine  GENOUT  is  called  to  write  the 
data  and  driver  records  to  disk. 

TYPE =3  Impedance  Card 

Since  generator  impedances  cannot  be  modified,  any  impedance 
card  in  a  modify  generator  card  sequence  constitutes  an  input 
error  which  is  handled  by  subroutine  ERROR  before  exit  to  the 
calling  program. 

<i  p 
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TYPE=4 


Frequency  Card 


The  card  type  code  is  saved  in  ITSV  and  the  FF  identifier  is 
decoded  by  subroutine  ALPHA.  The  frequency  number  is  decoded  and 
formatted  by  subroutine  INTEG  and  stored  in  FNOO.  The  frequency 
value  is  decoded  and  formatted  by  subroutine  DECIM  and  stored  in 
FPECO.  If  the  frequency  value  is  zero,  subroutine  MODGIN  exits 
with  an  appropriate  error  condition. 

At  this  point  the  end-of-data  switch  ISW  is  used  to 
determine  the  presence  of  frequency  sweep  parameters  on  the  card. 
If  the  end-of-data  in  on  (ISW=1),  the  parameters  ITYPEO  and  INCO 
are  set  to  indicate  no  sweep.  Otherwise  the  sweep  parameters 
STOPO,  INCO,  and  ITYPEO  are  decoded  and  formatted  by  subroutines 
DECIM,  INTEG,  and  ALPHA  respectively. 

The  sweep  type  is  tested  against  a  table  of  valid 
alphanumeric  types.  If  no  match  is  found,  subroutine  MODGIN 
exits  with  an  appropriate  error  condition.  If  a  match  is  found, 
the  sweep  type  is  encoded  in  ITYPEO. 

The  number  of  the  frequency  being  modified  FNOC  is  compared 
against  the  frequency  numbers  defined  for  the  previous  generator 
FNO(I) ,  1=1,10.  If  no  match  is  found,  subroutine  MODGIN  exits 
with  an  appropriate  error  condition.  If  a  match  is  found,  the 
table  index  I  serves  as  the  index  for  replacing  FFEC(I),  STOP(I), 
INC(I),  and  ITYPE(I)  with  the  modified  values,  after  which 
subroutine  MODGIN  returns  to  the  calling  program. 

«  * 
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TYPE=7  Amplitude  Card 


In  order  for  amplitude  data  to  be  associated  with  the  proper 
frequency,  each  amplitude  card  must  physically  follow  a  frequency 
card  in  the  input  deck.  Therefore  if  the  last  card  processed  was 
not  a  frequency  card  (ITSV  t  4) ,  subroutine  MODGIN  exists  with  an 
appropriate  error  condition. 

Otherwise  the  card  type  code  is  sav.ed  in  ITSV  and  the  AMP 
identifier  is  decoded  by  subroutine  ALPHA.  The  real  and 
imaginary  parts  of  the  complex  amplitude  are  decoded  and 
formatted  by  subroutine  DECIM  and  stored  in  AMP0(1)  and  AMP0(2). 
The  number  of  the  frequency  being  modified  FNOO  is  compared 
against  the  frequency  numbers  defined  for  the  previous  generator 
FNO(I) ,  1=1,10.  If  no  match  is  found,  subroutine  MODGIN  exits 
with  an  appropriate  error  condition.  If  a  match  is  found,  the 
table  index  I  is  used  to  replace  the  original  amplitude  data 
AMP (1,1)  and  AMP (2,1)  with  the  modified  amplitude,  after  which 
subroutine  MODGIN  returns  to  the  calling  program. 

Any  other  value  of  TYPE  constitutes  an  input  error  which  is 
handled  by  subroutine  ERROR  before  exit  to  the  calling  program. 


3-15J 


NAME:  MOPIN 


TYPE-  SUBROUTINE 

CENERAL  PURPOSE: 

Process  *MODIFY  card,  resets  MODE  to  identify  device  being 
modified,  turns  modify  switch  'ON'  so  remainder 
of  card  sequence  is  processed  according  to  MOPE  of 
device  being  modified 

VAPIABI.FS  • 

NONE 

SUBROUTINES  CALLED- 
NONE 

CALLING  PPOCRAMS: 

PRCSS 

DESCRIPTION- 

Subroutine  MOPIN  initiates  the  processing  of  a  MODIFY  card 
sequence.  Rather  than  processing  the  input  cards  itself,  it 
resets  MODE  to  identify  the  device  being  modified,  turns  the 
modify  switch  on  (MODFY=l ) ,  and  returns  to  the  calling  program 
where  the  remaining  cards  of  the  sequence  are  processed  according 
to  the  MODE  of  the  device  beina  modified. 


NAME  *  NCIN 


TYPE-  SUBROUTINE 


GENERAL  PURPOSE- 

Processes  *NONLINEAR  COMPONENTS  card  sequence  according 


to  the  value  of 
Type  =  1 
Type  =  2 
Type  =  3 
Type  =  9 
Type  =10 


TYPE  r 

End  of  card  sequence 

Parameter  card 

Resistor 

Capacitor 

Inductor 


VARIABLES • 

ISW  =  End  of  data  switch-  Off  =0,  On  =  1 

NCOMP  =  Length  of  data  record  in  words 
NODE A  =  Positive  node  of  connection 
NCEEP  =  Negative  node  of  connection 
NUM  =  Number  of  nonlinear  components  this  card 
sequence 

NW  =  Word  counter  for  parameter  input 
STRING  *  Alphanumeric  string  representation  of  input 
value 


SUBROUTINES  CALLED- 

ALPHA  TATAWP  DECIM  DRVOUT  ERPOP  INTEG 


CALLING  PROGRAMS: 
PRCSS 


DESCRIPTION • 

Subroutine 

NCIN 

is  the  input  processor 

for 

NCNLINFAP 

COMPONENTS  card 

sequences.  Its 

function 

is 

to 

decode  the 

nonlinear  components 

input  data 

according 

to 

an 

ant lcipated 

format,  translating  the  input  into  appropriate  data  and  driver 
records  for  use  by  subsequent  NCAP  phases. 

Each  call  to  subroutine  NCIN  causes  a  single  NCAP  inpjt  card 


to  be  processed. 

The  card  image 

and 

its  TYPE 

code  are 

transmitted  through 

common  storage 

to 

subrout ine 

NCIN  which 

processes  the  card  according  to  its  TYPE  as  follows- 

TYPE  =  1  End  of  Card  Sequence 


The  closing  of  a  nonlinear  components  definition  begins  by 
testing  the  input  for  errors.  If  no  linear  component  cards  were 
processed  (NCCMP.LE.0)  or  if  the  input  error  switch  is  on 
(JAPT=1) ,  return  is  made  to  the  calling  program  with  an 
appropriate  error  condition.  Otherwise  the  data  record  is 
written  to  file  20  from  the  first  NCOMP  words  of  the  common  data 
buffer  BUFF  by  subroutine  CATAWP. 

The  nonlinear  components  data  record  is  structured  as  a 
series  of  NUM  contiguous  13-word  entries,  one  for  each  nonlinear 

/  % 
w* 
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component  defined  in  the  card  sequencer 


BUFF(1)-(13)  First  Component  Definition 

BUFF(14 )  -  (26)  Second  Component  Definition 


FUFF (NCCMP-1 2) - (NCOMP) Last  Component  Definition 
The  first  word  of  each  entry  contains  an  integer  code 
representing  the  component  type:  l=resistor,  2=capacitor, 

3=inductor.  The  second  and  third  words  represent  the  positive 
and  negative  nodes  of  connection.  The  last  ten  words  contain 
from  one  to  ten  nonlinear  coefficients  which  define  the  element: 
PUFF(l) , (14) . . . (NCOMP-12)  Component  Codes 

BUFF(2) , (15) . . . (NCCMP-11)  Positive  Nodes  of  Connection 

BUFF(3) , (16) . . . (NCCNP-10)  Negative  Nodes  of  Connection 

PUFF(4) , (17) . . . (NCOMP-9)  First  Order  Coefficients 

EUFF ( 5 ) , (18 ) . . . (NCOMP-8)  Second  Order  Coefficients 


PUFF(13) , (26) . . . (NCONP)  Tenth  Order  Coefficients 

The  nonlinear  components  driver  record  is  completed  and 
written  by  subroutine  PRVOUT  to  file  21  from  the  first  ten  words 
of  global  common,  where- 

WCPF=5  Nonlinear  Component  Identifier 

ST^DD  Data  File  Record  Number 
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LNGTH=NCOMP  Length  of  Data  Record  in  Words 

MISC (1) =NCOMP  Number  of  Nonlinear  Components  x  4 

Other  MISC  driver  parameters  are  not  used. 


TYPE=2  Parameter  Card 


From  one  to  ten  decimal  parameters  are  extracted  from  the 
card  .  image,  formatted,  and  stored  in  the  data  buffer  by 
subroutine  DECIM.  The  number  of  values  decoded  and  their 
placement  in  the  buffer  depend  on  the  parameter  count,  NXT,  and 
the  end-of-data  switch,  ISW.  Upon  entering  the  subroutine,  NXT 
contains  the  number  of  coefficient  values  input  on  previous  data 
cards.  Parameter  storage  starts  at  BUFF (NCOMP-1 0+NW)  where 
NW-NXT+1  and  proceeds  through  successive  buffer  locations  as 
coefficient  values  are  decoded  by  subroutine  DECIM.  If  an 
end-of-data  is  encountered  (ISW=1)  before  BUFF(NCCMP)  is  filled, 
the  parameter  count  is  reset  to  the  last  buffer  location  used 
(NXT=NW)  and  control  returns  to  the  calling  program  in 
anticipation  of  additional  parameter  cards. 

TYPE=8 ,  9,  OP  10  Pesistor,  Capacitor,  or  Inductor  Card 

The  parameter  count  is  reset  to  NXT=0,  the  data  record 
length  is  incremented  to  accommodate  a  new  13-word  component 
definition,  and  the  component  count  NUM  is  calculated.  If  more 
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than  10  nonlinear  components  have  been  processed  in  the  card 
sequence  (NUM.GT.10),  subroutine  NCIN  exits  with  an  appropriate 
error  condition.  Otherwise  the  new  component  code  is  calculated 
by  TYPF-7  and  stored  in  PUFF (NCOMP-1 2) . 

For  each  nonlinear  component  card,  subroutine  NCIN 
anticipates  the  input  of  a  component  identifier  and  two  nodes  of 
connection  on  one  card.  During  decoding  of  the  input  card,  if  an 
end-of-data  is  encountered  (ISW=1)  before  these  parameters  have 
been  processed,  subroutine  NCIN  exits  with  an  appropriate  error 
condit ion . 

The  P,  C,  or  L  identifier  is  decoded  by  subroutine  ALPHA. 
The  nodes  of  connection  are  decoded  and  formatted  by  subroutine 
PFCIM  and  stored  in  PUFF (NCONP-11)  and  BUFF (NCOMP-10) .  If  the 
end-of-data  switch  is  off  (ISW=0),  control  transfers  to  decode 
the  coefficients  which  follow  on  the  card  according  to  TYPE=2 
processing.  If  the  end-of-data  switch  is  on  (ISW=1),  subroutine 
NCIN  returns  to  the  calling  program. 

Any  other  value  of  TYPE  constitutes  an  input  error  which  is 
handled  by  subroutine  EPROF  before  exit  to  the  calling  program. 


NAME:  NDSIN 


TYPE:  SUBROUTINE 


GENERAL  PURPOSE: 

Processes  *LINEAR  DEPENDENT  SOURCE  card  sequence 


accord ing 

to  the  value  of  TYPE: 

Type 

= 

1 

End  of  card  sequence 

Type 

= 

2 

Parameter  card 

Type 

= 

6 

Node  card 

Type 

= 

8 

Resistor 

Type 

= 

9 

Capacitor 

Type 

= 

10 

Inductor 

Type 

= 

18 

VC 

Type 

= 

19 

CC 

Type 

= 

20 

W 

Type 

= 

21 

CV 

VARIABLES: 

A 

B 

C 

ISW 

L 

NW 

R 


Positive  node  of  connection 

Negative  node  of  connection 

Value  of  parallel  capacitor 

End  of  data  switch*  off  =0,  on  =  1 

Value  of  parallel  inductor 

V7ord  counter  for  parameter  input 

Value  of  parallel  resistor 

Alphanumeric  string  representation  of  input 


STRING 


value 

SOURCE  =  Type  of  source;  1  =  VC 

2  =  CC 

3  =  VV 

4  =  CV 

XX  =  Positive  node  of  dependence 

YY  =  Negative  node  of  dependence 

SUPPOUTINES  CALLED: 

ALPHA  DATAWR  DECIN  DRIVWR 

ERFOP  INTEG 

CALLING  PROGRAMS: 

PRCSS 

DESCRIPTION* 

Subroutine  NDSIN  is  the  input  processor  for  NONLINEAR 

DEPENDENT  SOURCE  card  seauences.  Its  function  is  to  decode  the 

nonlinear  source  input  data  according  to  an  anticipated  format, 
translating  the  input  into  appropriate  data  and  driver  records 
for  use  by  subseauent  NCAP  phases. 

Each  call  to  subroutine  NDSIN  causes  a  single  NCAP  input 

card  to  be  processed.  The  card  image  and  its  TYPE  code  are 

transmitted  through  common  storage  to  subroutine  NDSIN  which 
processes  the  card  according  to  its  TYPE  as  follows: 
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TYPE=1  End  of  Card  Sequence 


The  closing  of  a  nonlinear  dependent  source  definition 
begins  by  testing  the  input  for  errors.  Subroutine  NDSIN  exits 
with  an  appropriate  error  message  if  any  of  the  following  input 
errors  are  detected- 

1)  All  four  nodes  (A,  B,  XX,  and  YY)  are  zero  and  the  card 
sequence  is  not  a  modify  function  (MODFY=0) 

2)  No  coefficients  were  processed  (NXT=0) 

3)  The  coefficients  are  all  zero 

4)  For  current  controlled  sources,  all  three  parallel 
components  (R,  C,  and  L)  are  zero 

5)  The  input  error  switch  is  on  (JABT=1) 

Otherwise  the  nonlinear  dependent  source  data  record  is  written 
to  file  20  from  the  common  data  buffer  PUFF  and  the  file  20 
record  number  DATREC  is  updated  to  point  beyond  the  new  data 
record . 

The  data  record  allocates  sufficient  disk  storage  for  the 
nonlinear  dependent  source  input  values  as  well  as  all  other  data 
generated  internally  by  its  model  in  subsequent  NCAP  phases.  The 
length  of  a  nonlinear  dependent  source  data  record  depends  on  the 
type  of  source  specified-  voltage  controlled  sources  require  20 
words  of  storage  for  input  values  only,  while  current  controlled 
sources  require  86  words  of  storage  as  follows: 


PUFF ( 1 ) - ( 20) 
PUFF(21) -(23) 
PUFF(24) -(86) 


Input  Values 
Component  Values 
Impedance  Table 


Alter  the  data  record  has  been  written  to  disk,  subroutine 
DRVOUT  is  called  to  complete  the  driver  record  and  write  it  to 
file  21.  The  nonlinear  dependent  source  driver  record,  taken 
from  the  first  ten  words  of  global  common,  consists  of: 

MODE*26  Nonlinear  Dependent  Source 

Identifier 

STADD  Data  File  Record  Number 

LNGTH=2fl  or  86  Length  of  Data  Record  in  Words 

MISC ( 1 ) =SOURCE  Source  Code:  1=VC,  2=CC,  3=VV, 

4=CV 

NISC ( 3 ) =XX  Positive  Node  of  Dependence 

MISC(4)=YY  Negative  Mode  of  Dependence 

MISC (5) =A  Positive  Node  of  Connection 

VISC(6)=P  Negative  Node  of  Connection 

After  returning  from  subroutine  DRVOUT,  subroutine  NDSIN 
exits  to  the  calling  program. 

TYPEf2_  Parameter  Card 

From  one  to  ten  nonlinear  coefficients  are  extracted  from 
the  card  image,  formatted,  and  stored  in  the  data  buffer.  The 
number  of  values  decoded  and  their  placement  in  the  buffer  depend 
on  the  parameter  count,  NXT ,  and  the  end-of-data  switch,  ISW. 
Upon  entering  the  subroutine,  NXT  contains  the  number  of 


coefficients  input  on  previous  data  cards.  Coefficient  storage 
begins  at  BUFF(NW*2-1)  where  NW=NXT+1 ,  and  proceeds  through 
successive  odd  buffer  locations  as  the  coefficients  are  decoded 
by  subroutine  DECIM.  The  corresponding  even  buffer  locations 
PUFF (NW*2) ,  which  are  allocated  for  future  implementation  of 
imaginary  parts  of  complex  coefficients,  are  zeroed.  If  an 
end-of-data  is  encountered  (ISW=1)  before  PUFF(19)  is  filled,  the 


parameter 

count  is  reset  to 

the 

last 

buffer 

location  used 

(NXT=NW) 

and  control  returns 

to 

the 

calling 

program  in 

anticipation  of  additional  parameter  cards. 

TYPE=6  Node  Card 

The  NODE  identifier  is  decoded  by  subroutine  ALPHA.  Then 
the  nodes  of  dependence  and  nodes  of  connection  are  extracted 
from  the  card  image  and  formatted  by  subroutine  INTEC  and  stored 
in  MISC(3)  through  MISC(6).  If  an  end-of-data  is  encountered 
(ISW=1)  before  four  node  numbers  have  been  decoded,  subroutine 
NDSIN  exits  with  an  appropriate  error  condition. 

TYPEf  8  ,__9 ,  or  10  Resistor,  Capacitor,  or  Inductor 

The  R,  C,  or  L  identifier  is  decoded  by  subroutine  ALPHA. 
If  an  end-of-data  is  encountered  (ISW=1),  subroutine  NDSIN  exits 
with  an  appropriate  error  condition.  Otherwise  the  component 
value  is  extracted  from  the  card  image,  formatted,  and  stored  at 


PUFF (TYPE+13)  by  subroutine  DECIM. 


TYPE=  18  ,  19  ,  20 ,  or  21 _ VC,  CC,  VV,  or  CV  Card 

The  SOURCE  type  is  calculated  according  to  TYPE-17  and  the 
data  record  length  is  set:  LNGTH=20  for  voltage  controlled 

sources,  I,NGTH=86  for  current  controlled  sources.  The  VC,  CC, 
VV,  or  CV  identifier  is  decoded  by  subroutine  ALPHA.  If  the 
end-of-data  is  encountered  (ISW=1) ,  subroutine  NDSIN  returns  to 
the  calling  program.  Otherwise  control  transfers  to  TYPE=2 
processing  for  the  remaining  data  on  the  card. 

Any  other  value  of  TYPE  constitutes  an  input  error  which  is 
handled  by  subroutine  ERROR  before  exit  to  the  calling  program. 
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NAME-  NODEIN 

TYPE-  SUBROUTINE 

GENERAL  PURPOSE- 

Processes  NODE  cards 

VARIABLES- 

ISW  =  End  of  data  switch-  Off  =0,  On  =  1 
NODEA  =  Positive  node  of  connection 
NODEB  =  Negative  node  of  connection 
STRING  =  Alphanumeric  string  representation  of  input 
value 

SUBROUTINES  CALLED- 
ALPHA  ERROR  INTEG 

CALLING  PROGRAMS- 

GENIN  JFETIN  PTIN  SDIN  TRNIN 

VDIN  VTIN 

DESCRIPTION- 

Subroutine  NODEIN  decodes  and  formats  the  standard  NCAP  node 
card.  The  card  image  is  transmitted  through  common  storage  to 
subroutine  NODEIN  where  it  is  processed  according  to  an 
anticipated  format.  The  node  specifications  are  returned  to  the 
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calling  program  through  the  arguments  NODEA  and  NODEB. 

First  the  node  error  switch  is  turned  off  (NABT=0 )  and  the 
NODE  identifier  is  decoded  by  subroutine  ALPHA.  If  an 
end-of-data  is  encountered  (ISW=1) ,  subroutine  NODEIN  exits  with 
an  appropriate  error  condition. 

If  the  end-of-data  switch  is  off  (ISW=0) ,  the  positive  node 
of  connection  is  extracted  from  the  card  image,  formatted,  and 
stored  in  NODEA  by  subroutine  INTEC.  If  the  end-of-data  is 
encountered  (ISW=1) ,  the  negative  node  of  connection  is  assumed 
to  be  ground  (NODEB=0).  Otherwise  the  negative  node  is  extracted 
from  the  card  image,  formatted  and  stored  in  NODEB  by  subroutine 
INTEG. 

In  the  event  that  both  nodes  are  zero,  subroutine  NODEIN 
exits  with  an  appropriate  error  condition. 
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NAME •  PACKL 


TYPE  r  SUBROUTINE 


GENERAL  PURPOSE: 

Packs  the  characters  in  CARD (IPOS)  through  CARD(J-l) 
into  STRING(l),  left-justif ied 


VARIABLES : 
PIT 

IPOS 

J 

NCHAP  = 
NPCHAP  = 
NPVTORD  = 
RPLANK  « 
STRING  = 
STOP 


Number  of  bits  character  is  to  be  shifted 
left  for  proper  alignment  in  packed  notation 
Position  of  first  character  to  be  packed 
Position  of  last  character  to  be  packed  +  1 
Number  of  characters  per  word 
Number  of  bits  per  character 
Number  of  bits  per  word 
Right-justified  alphanumeric  blank 
Alphanumeric  string  representation  returned 
Index  for  card  array 


SUPROUTINES  CALLED- 
NONE 


CALLING  PROGRAMS: 
SCAN 
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DESCRIPTION- 

Subroutine  PACKL  belongs  to  a  group  of  Phase  0  character 
manipulation  routines  which  format  NCAP  input  data.  Its  function 
is  to  pack  the  characters  comprising  an  alphabetic  datum 
extracted  by  subroutine  SCAN  into  a  left-justified  alphanumeric 
string  in  preparation  for  formatting  by  subroutine  ALPHA. 

Input  to  the  subroutine  is  the  r ight- just  if ied  card  image 
stored  in  the  integer  array  CARD,  the  character  position  IPOS  at 
which  the  datum  begins,  and  the  character  position  J  at  which  the 
datum  ends.  Output  from  the  routine  is  the  left- justified 
alphanumeric  string  representation  returned  in  STRING(l).  The 
reauired  machine  dependent  character  manipulation  parameters 
NCHAP  (number  of  characters  per  word) ,  NECHAR  (number  of  bits  per 
character),  and  NPWOPD  (number  of  bits  per  word)  are  transmitted 
to  subroutine  PACKL  through  the  labelled  common  area  WORDSZ. 

The  NEWORD  bits  of  STRING (1)  contain  NCHAR  characters,  each 
occupying  NPCHAP  bits.  The  characters  are  stored  in  the  string 
from  left  to  right,  where  the  leftmost  character  of  the  datum 
taken  from  CAPD  (IPOS)  is  placed  in  the  most  significant  bits  of 
STFING(l)  and  so  on. 

The  packing  technioue  is  arithmetic-  each  right-justified 
character  to  be  packed,  CARD(STOP),  is  shifted  left  into  the 
correct  position  by  multiplication  by  an  appropriate  power  of  2, 
(2  **  PIT),  and  then  simply  added  to  the  string,  STPING(l).  The 
variable  STOP  indexes  the  CARD  array,  while  PIT  represents  the 
number  of  bits  a  character  must  be  shifted  left  for  proper 
positioning  within  the  string. 
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If  fewer  than  NCHAR  characters  are  input  to  the  routine,  the 
string  is  filled  to  the  right  with  alphanumeric  blanks.  If  more 
than  NCHAR  characters  are  input,  the  right-most  characters  are 
truncated . 


| 
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NAME:  PACKR 


9T 


TYPE:  SUBROUTINE 

GENERAL  PURPOSE: 

Packs  the  characters  in  CARD(IPOS)  through  CARD(J-I) 
into  STRING ( 1 )  through  STRING(2),  r ight- justified 

VARIABLES: 

BIT  =  Number  of  bits  character  is  to  be  shifted 

left  for  proper  alignment  in  packed  notation 
IPOS  =  Position  of  first  character  to  be  packed 
J  =  Position  of  last  character  to  be  packed  +  1 

LBLANK  =  Alphanumeric  blank  word 
NCHAR  =  Number  of  characters  per  word 
NBCHAR  =  Number  of  bits  per  character 
NPWORD  =  Number  of  bits  per  word 
RELANK  =  Pight-justif ied  alphanumeric  blank 
STRING  =  Alphanumeric  string  representation  returned 
STOP  =  Index  for  CARD  array 
WORD  =  Index  for  STRING  array 

SUBROUTINES  CALLED: 

NONE 

CALLING  PROGRAMS- 


SCAN 
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DESCRIPTION: 

Subroutine  PACKR  belongs  to  a  group  of  Phase  0  character 
manipulation  routines  which  format  NCAP  input  data.  Its  function 
is  to  pack  the  characters  comprising  a  numeric  data  value 
extracted  by  subroutine  SCAN  into  a  r ight-justif ied  alphanumeric 
string  in  preparation  for  formatting  by  subroutines  DECIM  and 
INTEG. 

Input  to  the  routine  is  the  r ight-justif ied  card  image 
stored  in  the  integer  array  CARD,  the  character  position  IPOS  at 
which  the  datum  begins,  and  the  character  position  J  at  which  the 
datum  ends.  Output  from  the  routine  is  the  right-justified 
alphanumeric  string  representation  of  the  datum  returned  in 
STRING (1)  and  STRING(2).  The  required  machine  dependent 
character  manipulation  parameters  NCHAR  (number  of  characters  per 
word) ,  NBCHAR  (number  of  bits  per  character)  ,  and  NBWORD  (number 
of  bits  per  word)  are  transmitted  to  subroutine  PACKR  through  the 
labelled  common  area  WORDSZ. 

The  NBWORD  bits  of  each  word  of  the  alphanumeric  string 
representation  contain  NCHAR  characters,  each  occupying  NBCHAR 
bits.  The  characters  are  stored  from  right  to  left  (from  the 
least  significant  to  the  most  significant  bit) ,  where  the  least 
significant  character  of  the  string  occupies  bit  positions  1 
through  NBCHAR  and  so  on.  STRING (2)  is  packed  with  the  NCHAR 
characters  from  CARD(J-l),  CARD(J-2)..,  CARD ( J-NCHAR) .  STRING(l) 
if  packed  with  the  remaining  characters  through  CARD(IPOS).  The 
Moments  of  STRING  are  blank  filled  to  the  left  if  necessary. 
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The  packing  technique  is  arithmetic:  each  right- justified 

character  to  be  packed,  CARD(STOP),  is  shifted1  left  into  the 

> 

.  v* 

correct  position  by  multiplication  by  an  appropriate  power  of  2, 
(2  *  *  PIT),  and  then  simply  added  to  the  string  at  STRING (WORD) . 
The  variables  STOP  and  WORD  index  the  CARD  and  STRING  arrays, 
while  BIT  represents  the  number  of  bits  a  character  must  be 
shifted  left  for  proper  positioning  within  the  string. 

If  fewer  than  2  x  NCHAR  characters  are  input  to  the  routine, 
the  string  is  filled  to  the  left  with  alphanumeric  blanks.  If 
more  than  2  x  NCHAR  characters  are  input,  the  more  significant 
characters  are  truncated. 


mmm 
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NAME  r  PLOTIN 


TYPE:  SUE ROUTINE 

GENERAL  PURPOSE: 

Processes  *PLOT  card  sequence  according  to  the  value 
of  TYPE 

Type  =  l  End  of  card  sequence 

Type  =  4  Frequency 

Type  =  5  Order 

Type  =  6  Node 

Type  =15  Label 

VARIABLES : 

IFR  =  User-assigned  number  of  frequency  to  be 
plotted 

INOD  =  Nodes  to  be  plotted 
IORD  =  Orders  to  be  plotted 

ISW  =  End  of  data  switch*  Off  =0,  On  =  1 
ITYP  =  Type  of  plot?  1  =  Linear 

2  =  Logarithmic 

STRING  =  Alphanumeric  string  representation  of  input 
value 

TYPES  =  Valid  frequency  sweep  types 
SUBROUTINES  CALLED: 

ALPHA  DATAWR  DRIVWR  ERROR  INTEG 
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CALLING  PROGRAMS- 


PRCSS 


DESCRIPTION- 

Subroutine  PLOTIN  is  the  input  processor  for  PLOT  card 
sequences.  Its  function  is  to  decode  the.  plot  input  data 
according  to  an  anticipated  format,  translating  the  input  into 
appropriate  data  and  driver  records  for  use  by  subsequent  NCAP 
phases . 

Each  call  to  subroutine  PLOTIN  causes  a  single  NCAP  input 
card  to  be  processed.  The  card  image  and  its  TYPE  are 
transmitted  through  common  storage  to  subroutine  PLOTIN  which 
processes  the  card  according  to  its  TYPE  as  follows: 


TYPEsl  End  of  Card  Sequence 

The  closing  of  a  plot  definition  begins  by  testing  the  input 
for  errors.  Subroutine  PLOTIN  exits  with  an  appropriate  error 
message  if  any  of  the  following  input  errors  are  detected: 

1)  No  frequency  data  was  processed  (MISC(1)=0) 

2)  No  order  data  was  processed  (WISC(3)=0) 

3)  No  node  data  was  processed  (MISC(4)=0) 

4)  More  than  1(3  plot  specifications  were  processed 
(NPLOT.GT. 10) 
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5)  The  input  error  switch  is  on  (JABT=1) 

If  no  input  errors  are  detected,  the  file  20  record  number 
DATREC  is  updated  to  point  beyond  the  plot  data  record  and 
subroutine  DRIVWR  is  called  to  write  the  driver  record  to  file 
21. 

The  PLOT  driver  record,  taken  from  the  first  ten  words  of 
global  common,  consists  of r 


MODE=22 

Plot  Identifier 

STADD 

Data  File  Record  Number 

LNGTH  =  0 , 50  ,  or  100 

Length  of  Data  Record  in  Words 

MISC(l) 

Frequency  Number 

MISC (2) 

Type  of  Plot?  l=Linear 

2-Logar ithmic 

MISC  ( 3 ) 

Order  Number 

MISC  (4) 

Node  Number 

Other  MISC  driver  parameters  are  not  used. 

After  the  driver  record  has  been  written  to  disk,  the  plot 
specifications  are  appended  to  the  plot  table  in  the  labelled 
common  area  PLOTFL  and  subroutine  PLOTIN  returns  to  the  calling 
program . 

TYPE=4  Frequency  Card 


The  FR  identifier  decoded  by  subroutine  ALPHA  and  the 

freouency  number  is  extracted  from  the  card  image,  formatted,  and 
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stored  in  MISC(l)  by  subroutine  INTFG.  If  an  end-of-data  is 
encountered  (ISW=1),  the  plot  type  is  set  to  "no  sweep"  by 
MI£C(2)=1  and  subroutine  PLOTIN  returns  to  the  calling  program. 

Otherwise  the  plot  type  is  extracted  from  the  card  image  by 
subroutine  ALPHA  and  tested  against  a  table  of  valid  alphanumeric 
types.  If  no  match  is  found,  subroutine  PLOTIN  exits  with  an 
appropriate  error  condition.  If  a  match  is  found,  the  plot  type 
is  encoded  in  MISC(2)  and  subroutine  PLCTIN  returns  to  the 
calling  program. 


TYPE=5  Order  Card 


The  ORDER  identifier  is  decoded  by  subroutine  ALPHA  and  the 
order  number  is  extracted  from  the  card  image,  formatted,  and 
stored  in  MISC(3)  by  subroutine  INTEG.  Subroutine  PLOTIN  returns 
to  the  calling  program. 


TYPE=6  Node  Card 


The  NODE  identifier  is  decoded  by  subroutine  ALPHA  and  if  an 
end-of-data  is  encountered  (ISW=1),  subroutine  PLOTIN  exits  with 
an  appropriate  error  condition.  Otherwise  the  node  number  is 
extracted  from  the  card  image,  formatted,  and  stored  in  NISC(4) 
by  subroutine  INTFG.  Subroutine  PLOTIN  returns  to  the  calling 


program. 
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TYPE=15  Label  Card 


The  50-character  label  specification  is  extracted  from  the 
card  image,  stored  in  the  common  data  buffer  PUFF(l)-(50)  and 
written  to  file  20  by  subroutine  DATAWP .  The  data  file  record 
number  DATPFC  is  updated  and  the  data  record  length  is 
incremented.  After  clearing  the  data  buffer,  subroutine  PLOTIN 
returns  to  the  calling  program. 

Any  other  value  of  TYPE  constitutes  an  input  error  which  is 
handled  by  subroutine  ERRCP  before  exit  to  the  calling  program. 


, 

, 
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UNCLASSIFIED 


NAME:  PRCSS 

TYPE:  SUBROUTINE 

GENERAL  PURPOSE: 

Controls  input  processing  of  *-card.  seauences  according 
to  the  value  of  MODE 

VARIABLES: 

NONE 

SUBROUTINES  CALLED- 


ECIN 

END  IN 

ERPOP 

GENIN 

JFETIN 

LCIN 

LDSIN 

MODGIN 

MODIN 

NCIN 

NDSIN 

PLOTIN 

PS  IN 

PTIN 

SCIN 

SDIN 

TRNIN 

VDIN 

VTIN 

CALLING  PROGRAMS: 

MAIN 

DESCRIPTION: 

Subroutine  PRCSS  controls  the  processing  of  NCAP  input  card 
seouences.  It  uses  the  MODE  of  the  previous  *-card  transmitted 
from  the  main  program  through  common  storage  as  the  index  of  a 
computed  GO  TO  which  transfers  control  to  an  appropriate  input 
processing  subroutine.  There  the  input  card  is  processed 

o 
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according  to  an  anticipated  format  and  translated  into 
appropriate  data  and  driver  records. 


Modes  1,  2 

,  11, 

12, 

15, 

19,  21,  23 

and  24  imply  error 

conditions  since 

they 

are 

either 

created 

internally  by 

the 

program  or  not 

used 

at 

all. 

When  any 

of  these  modes 

are 

encountered  by  subroutine  PFCSS ,  an  error  message  is  printed  and 
control  returns  to  the  main  program.  The  valid  MODE  values  and 
their  corresponding  input  processors  are  tabulated  below: 


MODE  Input  Processing  Comments 

Pout ine 


3 

4 

5 

6 

7 

8 
9 

10 

13 

14 
16 

17 

18 
20 


GENIN/MODGIN 

LCIN 

NCIN 

VDIN 

VTIN 

PTIN 

TRNIN 

SDIN 

SCIN 

ECIN 

END  IN 

PSIN 

MODIN 

JFETIN 


Generator/Generator  Modify 

Linear  Components 

Nonlinear  Components 

Vacuum  Diode 

Vacuum  Triode 

Vacuum  Pentode 

Transistor 

Semiconductor  Diode 

Start  Circuit 

End  Circuit 

End 

Print  Select 
Modify 

Junction  Field  Effect 
Transistor 
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22 


PLOTIN 


Plot 


25  LDSIN  Linear  Dependent  Source 

26  NDSIN  Nonlinear  Dependent  Source 

With  the  exception  of  MODE=3,  16,  and  18  prograrr  control 
passes  directly  from  the  computed  GO  TO  to  the  appropriate  input 
processor  and  from  there  back  to  the  main  program." 

*  MODIFY  card  sencences  result  in  a  slightly  different  path 
through  subroutine  PRCSS.  For  MODE=18,  program  control  passes 
from  the  computed  GO  TO  to  subroutine  MODIN.  There,  rather  than 
processing  the  cards  of  the  modify  sequence  directly,  the  value 
of  MODE  is  reset  to  identify  the  device  being  modified  and  the 
modify  switch  is  turned  on  (MODFY=l) .  Upon  return  from  MODIN 
control  passes  back  to  the  computed  GO  TO  of  subroutine  PPCSS 
where  the  updated  value  of  MODE  causes  the  cards  of  the  modify 
seauence  to  be  processed  by  the  input  subroutine  corresponding  to 
the  device  being  modified. 

Because  of  the  complexity  of  generator  input  specifications 
and  the  restrictions  on  generator  modification,  there  is  a 
special  input  processor  MODCIM  for  generator  modification  cards. 
It  is  invoked  by  subroutine  PRCSS  when  M0DE=3  and  M0DFY=1, 
indicating  that  generator  modification  is  in  effect.  Otherwise 
the  standard  generator  input  routine  CENIN  is  called  to  process 
GFNERATOR  card  secruences. 

An  *  END  card  (MODE=16)  signals  the  end  of  Phase  0 
processing.  For  M0DE=16,  program  control  passes  from  the 
computed  GO  TO  in  PRCSS  to  subroutine  FNPIN .  There  the  input 
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phase  is  terminated  and  the  program  either  proceeds  to  subroutine 
PHASE1  or  aborts  depending  on  the  presence  of  errors  in  the  input 
deck . 


NAME-  PSIN 


r 


TYPE-  SUBROUTINE 

GENERAL  PURPOSE  - 

Processes  *PRINT  SELECT  card  seouence  according  to  the 
value  of  TYPE- 

Type  =  1  End  of  card  seouence 

Type  =  5  Orders 

Type  =  6  Nodes 

Type  =  22  Off 

Type  =23  On 

VAPIABLES : 

ISW  =  End  of  data  switch-  Off  =0,  On  =  1 
NLIST  =  Print  select  On/Off  switch-  Off  =  1 
On  =  0 

NODES  =  Nodes  specified  for  print  selection 
ORDRS  =  Orders  specified  for  print  selection 
STRING  =  Alphanumeric  string  representation  of  input 
value 


SUBROUTINES  CALLED : 

ALPHA  DATAV’P  DRVOUT  EPROR  INTFG 

CALLING  PROGRAMS- 
PRCSS 


4> 
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DESCRIPTION • 


Subroutine  PSIN  is  the  input  processor  for  PRINT  SELECT  card 
seouences.  Its  function  is  to  decode  the  print  select  input  data 
according  to  an  anticipated  format,  translating  the  input  into 
appropriate  data  and  driver  records  for  use  by  subseouent  NCAP 
phases . 

Fach  call  to  subroutine  PSIN  causes  a  single  NCAP  input  card 
to  be  processed.  The  card  image  and  its  TYPE  code  are 
transmitted  through  common  storage  to  subroutine  PSIN  which 
processes  the  card  according  to  its  TYPE  as  follows- 


TYPE=1  _Fnd  of  Card  Seouence 

If  the  input  error  switch  is  on  (JAPT=1),  subroutine  PSIN 
exits  with  an  appropriate  error  condition.  Otherwise  the  print 
select  data  record  is  written  to  file  20  from  the  common  data 
buffer  PUFF,  and  the  data  record  number  DATREC  is  updated  to 
point  beyond  the  new  data  record. 

Since  the  print  select  feature  does  not  cause  any  internally 
oenerated  data  to  be  transmitted  between  NCAP  phases,  the  20-word 
data  record  contains  only  input  values: 

PUFF(1)-(10)  Orders  to  be  Printed 


PUFF (11) -  (20) 


Nodes  to  be  Printed 


After  the  data  record  has  been  written  to  disk,  subroutine 
DRVOUT  is  called  to  complete  the  driver  record  and  write  it  to 
file  21.  The  print  select  driver  record,  taken  from  the  first 
ten  words  of  global  common,  consists  of: 

M0DE=1 7  Print  Select  Identifier 

STADD  Data  File  Record  Number 

LNGTH=20  Length  of  Data  Record  in  Words 

MISC(l)  Number  of  Orders  Specified 

MISC  (2)  Number  of  Nodes  Specified 

MISC  (3 ) =0  or  1  ON/OFF  switch:  0=on,  l=off 

Other  MISC  driver  parameters  are  not  used. 

After  returning  from  subroutine  DRVOUT,  subroutine  PSIN 
returns  to  the  calling  program. 

TYPE=5  Order  Card 

The  ORDER  identifier  is  decoded  by  subroutine  ALPHA,  and  if 
an  end-of-data  is  encountered  (ISW=1) ,  subroutine  PSIN  exits  with 
an  appropriate  error  condition.  Otherwise  from  one  to  ten 
integers  specifying  the  orders  of  analysis  to  be  printed  durinc 
Phase  4  are  decoded  and  formatted  by  subroutine  INTFG  and  stored 
in  ORDRS (1 ) - (10 )  under  the  control  of  the  index  K7 .  After 
decoding,  each  ORDRS(KZ)  is  placed  in  the  print  select  data 
record  at  RUFF(KZ).  If  an  end-of-data  is  encountered  before 
ORDPS (10)  is  filled,  the  number  of  orders  is  stored  in  NISC(l). 
Otherwise  MISC(1)=10  and  subroutine  PSIN  returns  to  the  calling 
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prograir. 

TYPEs6  Node  Card 

The  NODE  identifier  is  decoded  by  subroutine  ALPHA. 
Processing  of  the  print  select  node  data  is  identical  to  that  of 
the  order  data  except  that  the  input  values  are  decoded  to 
NOrES(l)-(10)  and  stored  in  the  print  select  data  record 
beginning  at  PUFF (KZ+lf ) .  The  node  count  is  saved  in  MISC(2). 

TYPE=22  -jff  Card 

The  print  select  switch  is  set  to  OFF  by  NLIST*i ,  saved  in 
VISC(3),  and  subroutine  PSIN  returns  to  the  calling  program. 

TYPF=23  On  Card 

The  print  select  switch  i  set  to  CF  by  FlIFT*fl  saved  in 
VISC  (3),  ann  subroutine  PFIF  returns  to  the  callinc  rroorarr. 

?,rv  other  value  of  TYPF  constitutes  an  input  error  which  is 
hardier'  by  subroutine  FPPCr  before  exit  tc  the  callinc  proaran. 
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■■MV 


NAMF-  PTIN 

TYFF-  SUPPOUTINF 

CRNFPAL  PURPOSE- 

Processes  *VACUUM  PENTODE  card  eccuence  accordir.c 
to  the  value  of  TYPE- 

•  Type  =  1  End  of  card  secuence 
TyPe  -  2  Perarreter  card 

Type  =  6  Node  card 

VAFIAPLES • 

ISW  =  End  of  data  switch'  Off  =  0.  On  =  1 

NW  =  Word  counter  for  parameter  input 

STRING  =  Alphanumeric  strina  representation  of  input 
value 

SUFPOUTINES  CALLED • 

DATCUT  DFCIM  FPPOP  NODEIN 

CALLING  PROGRAMS • 

PRCSS 

DESCRIPTION- 

Subroutine  PTIN  is  the  input  processor  for  VACUUM  PENTODE 
card  sequences.  Its  function  is  to  decode  the  vacuum  pentode 
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input  data  according  to  an  anticipated  format,  translating  the 
input  into  appropriate  data  and  driver  records  for  use  by 
subseauent  NCAP  phases. 

Fach  call  to  subroutine  PTIN  causes  a  single  NCAP  input  card 
to  be  processed.  The  card  image  and  its  TYPE  code  are 

transmitted  through  common  storage  to  subroutine  PTIN  which 

processes  the  card  according  to  its  TYPE  as  follows* 

TYPE _=1 F nd  o f  Card  Pecue n c e 

Subroutine  CATCUT  is  called  to  complete  the  driver  record 
and  to  close  the  vacuum  pentode  definition.  The  input  is  tested 
for  errors  and  the  data  and  driver  records  are  written  to  disk. 

The  driver  record  is  written  to  file  21  from  the  first  ten  words 

of  global  common,  where; 

V0DE=8  Vacuum  Pentode  Identifier 

STADD  Data  File  Record  Number 

LNCTP^P?  Length  of  Data  Record  in  Words 

NISC(3)  Pase  Node  of  Connection 

Other  NISC  driver  parameters  are  not  used. 

The  vacuum  pentode  data  record,  written  to  file  2P  from  the 
common  data  buffer  PUFF,  is  107  words  in  length.  This  record 
allocates  sufficient  disk  storage  for  the  vacuum  pentode  input 
values  as  well  as  all  other  data  generated  internally  by  its 
model  in  subsecuent  NCAP  phases* 

PUFF { 1 ) - (1 2)  Input  Values 
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BUFF (13) - (75) 
BUFF (76) -  (107) 


^  P 


Nonlinear  Parameters  and  Coefficients 
Admittance  Submatrix 

TYPE=2  Parameter  Card 

From  one  to  twelve  decimal  parameters  are  extracted  from  the 
card  image,  formatted,  and  stored  in  the  data  buffer  by 
subroutine  DECIM.  The  number  of  values  decoded  and  their 
placement  in  the  buffer  depend  on  the  parameter  count,  NXT,  and 
the  end-of-data  switch,  ISK.  Upon  entering  the  subroutine,  NXT 
contains  the  number  of  values  input  on  previous  data  cards. 
Parameter  storage  begins  at  BUFF  (NW)  where  NV?=NXT+1  and  proceeds 
through  successive  buffer  locations  as  data  values  are  decoded  by 
subroutine  DECIM.  if  an  end-of-data  is  encountered  (ISW=1) 
before  EUFF(12)  is  filled,  the  parameter  count  is  reset  to  the 
last  buffer  location  used  (NXT=NK)  and  control  returns  to  the 
calling  program  in  anticipation  of  additional  parameter  cards. 

TYPE=6  Node  Card 

The  base  node  of  connection  is  extracted  from  the  card 
image,  formatted,  and  stored  in  MISC(3)  of  the  driver  record  by 
subroutine  NODEIN. 

■* » 
%.'W 
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Any  other  value  of  TYPE  constitutes  an  input  error  which  is 
handled  by  subroutine  ERROR  before  exit  to  the  calling  program. 
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NAME:  SCAN 


TYPE:  SUBROUTINE 

GENERAL  PURPOSE- 

Extracts  the  contiguous  non-blank  characters  in  CAPD(IPCS) 
through  CARD(J-l)  and  packs  their  into  alphanurrer ic  string 
representation  in  STPING(I)  through  STRING (2) 

VARIABLES : 

IPOS  =  Position  of  first  character  to  be  packed 

ISK  =  End  of  data  switch-  Off  =  P,  On  =  1 

I TYPE  =  Data  type-  1  =  Numeric 

2  =  Alphanuirer  ic 

J  =  Position  of  last  character  to  be  packed  +  1 

PPLANK  =  Right- justi f ied  alphanureric  blank 
STRING  =  Alphanureric  string  representation  of  input 
value 

SUBROUTINES  CALLED- 
PACKL  PACK  P 

CALLING  PPOCRA MS  ■ 

ALPRA  DECI v  I NT EC 
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DESCRIPTION • 


Subroutine  SCAN  belongs  to  a  group  of  Phase  0  character 
manipulation  routines  which  format  NCAP  input  data.  Its  function 
is  to  extract  the  contiguous  alphanumeric  characters  constituting 
a  data  value  from  an  input  card  image  and  to  pack  those 
characters  into  the  integer  array  STPING  for  formatting  by 
subroutines  ALPHA,  DECIN,  and  INTEC. 

Input  to  the  subroutine  is  the  r ight- justified  alphanumeric 
card  image  stored  in  the  inteaer  array  card,  the  character 
position  IPOS  at  which  the  scan  begins,  and  the  anticipated  data 
type  represented  by  ITYPE=1  for  numeric  data  or  ITYPE=2  for 
alphabetic  data.  Output  from  the  routine  is  the  alphanumeric 
string  representation  STRING,  the  character  position  IPOS  at 
which  the  scan  terminated,  and  the  end-of-data  switch  ISfr.7. 

First  the  end-of-data  switch  is  initialized  off  by  ISW=0. 
Then  starting  at  CAPD(I)  the  image  is  scanned  colurn-by-column  to 
locate  the  first  non-blank  character.  If  no  non-blank  is 
encountered,  the  end-of-data  switch  is  turned  "on"  and  exit 
occurs.  Otherwise  the  position  of  the  first  non-blank  is  saved 
in  IPOS  and  the  scan  proceeds  across  the  non-blank  characters 
until  a  blank  is  encountered  at  CARD(J). 

At  this  point  the  datum  in  CARD(IPCS)  through  CARD(J-l)  is 
packed  into  STPING  either  right  or  left- justified  according  to 
the  anticipated  data  type.  Numeric  data  (ITYPE=1)  are  packed 
right-justified  by  subroutine  PACKR ,  while  alphabetic  data 
( ITYPE=  2 )  are  packed  left- just  if ied  by  subroutine  PACKL. 
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After  the  packing  is  complete,  the  scan  resumes  at  CARD(J) 

to  determine  if  there  are  additional  data  on  the  card  and  to 
position  the  character  pointer  accordingly.  In  the  event  that 


the  remainder 

of 

the 

card 

is  blank,  the  end-of- 

-data 

switch  is 

turned  on  (ISW= 

0) 

and 

exit 

occurs.  Otherwise 

the 

character 

pointer  IPOS 

is 

set 

to  the 

starting  location  of 

the 

next  datum 

and  control  returns 

to 

the  calling  program. 

NAME:  SCIN 


TYPE:  SUBROUTINE 

GENERAL  PURPOSE: 

Processes  *START  CIRCUIT  card 

VARIABLES: 

NONE 

SUBROUTINES  CALLED: 

DRVOUT  ERROR 

CALLING  PROGRAMS: 

PRCSS 

DESCRIPTION: 

Subroutine  SCIN  is  the  input  processor  for  the  START  CIRCUIT 
card.  Its  function  is  to  translate  the  start  circuit  input  card 
into  an  appropriate  driver  record  for  use  by  subsequent  NCAP 
phases.  The  start  circuit  driver  record  and  its  companion  end 
circuit  driver  record  serve  as  delimiters  for  the  NCAP  driver 
file.  The  address  of  the  start  circuit  driver  record  SCREC  is 
saved  by  subroutine  SCIN  and  transmitted  through  common  storage 
to  the  end  circuit  input  processor  ECIN. 

Processing  of  the  start  circuit  function  begins  by  testing 
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the  TYPE  code  of  the  input  card.  Because  there  are  no  data  cards 
associated  with  the  start  circuit  input,  TYPE=1  is  the  only  code 
recognized  by  subroutine  SCIN.  Any  other  value  of  TYPE 
constitutes  an  input  error  which  is  handled  by  subroutine  ERROR 
before  exit  to  the  calling  program. 

If  the  input  error  switch  is  on  (JABT=1) ,  subroutine  SCIN 
returns  to  the  calling  program  with  an  appropriate  error 
condition.  Otherwise  the  START  CIRCUIT  driver  record  is  written 
to  file  21  from  the  first  ten  words  of  global  common  by 
subroutine  DiRVOUT. 

The  start  circuit  driver  record  is  identified  by  M0DE=13. 
Eecause  there  is  no  data  associated  with  a  start  circuit 
function,  the  driver  parameters  STADD  and  LNGTH  are  not 
applicable.  The  MISC  driver  parameters  are  not  defined  during 
Phase  0,  but  are  defined  and  used  in  subsequent  NCAP  phases  to 
store  the  disk  addresses  of  admittance  matrices  and  transfer 
functions . 

After  the  driver  record  has  been  written  to  disk,  subroutine 
SCIN  returns  to  the  calling  program. 
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NAME:  SDIN 

TYPE:  SUBROUTINE 

GENERAL  PURPOSE: 

Processes  *SEMICONDUCTOR  DIODE  card  sequence  according 
to  the  value  of  TYPE: 

Type  =  1  End  of  card  sequence 
Type  =  2  Parameter  card 
Type  =  6  Node  card 
Type  =  16  Forward  Eias 
Type  =  17  Reverse  Bias 

VARIABLES: 

IPSW  =  Bias  switch;  1  =  Forward,  2  *  Reverse 
ISW  =  End  of  data  switch*  Off  =0,  On  =  1 
NV7  =  Word  counter  for  parameter  input 
STRING  =  Alphanumeric  string  representation  of  input 
value 

SUBROUTINES  CALLED: 

»IPHA  DATOUT  DECIM  ERROR  NODEIN 

CALLINC  PROCRANS • 

PRCSS 
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DESCRIPTION- 


Subroutine  SDIN  is  the  input  processor  for  SEMICONDUCTOR 
DIODE  card  sequences.  Its  function  is  to  decode  the 
semiconductor  input  data  according  to  an  anticipated  format, 
translating  the  input  into  appropriate  data  and  driver  records 
for  use  by  subsequent  NCAP  phases. 

Each  call  to  subroutine  SDIN  causes  a  single  NCAP  input  card 


to  be  processed. 

The  card  image 

and 

its  TYPE 

code  are 

transmitted  through 

common  storage 

to 

subroutine 

SDIN  which 

processes  the  card  according  to  its  TYPE  as  follows* 


TYPE=1  End  of  Card  Sequence 


If  no  forward  or  reverse-bias  specification  was  processed 
(IBSW=0) ,  subroutine  SDIN  exits  with  an  appropriate  error 
condition.  If  the  diode  is  reverse-biased  (IESW=2)  ,  the  four 
input  values  are  moved  from  BUFF(l)-(4),  which  are  reserved  for 
forward-bias  data,  to  BUFF(5)-(8)  and  the  forward-bias  data  area 
is  cleared.  If  the  diode  is  forward-biased ,  the  reverse-bias 
data  area  EUFF(5)-{8)  is  cleared. 

Subroutine  DATOUT  is  called  to  complete  the  driver  record 
and  to  close  the  semiconductor  diode  definition.  The  driver 
record  is  written  to  file  21  from  the  first  ten  words  of  global 
common,  where: 

MODE=10  Semiconductor  Diode  Identifier 


STACD 


Data  File  Record  Number 


LNGTH-32 


Length  of  Data  File  in  Words 
Positive  Node  of  Connection 


MISC ( 3 ) 

MISC  ( 4 )  Negative  Node  of  Connection 

The  other  MISC  parameters  are  not  used. 

The  semiconductor  diode  data  record,  written  to  file  20  from 
the  common  data  buffer  BUFF ,  is  32  words  in  length.  This  record 
allocates  sufficient  disk  storage  for  the  semiconductor  diode 
input  values  as  well  as  all  other  data  generated  internally  by 
its  model  in  subsequent  NCAP  phases; 

PUFF ( 1 ) - (8 )  Input  Values 

PUFF(9)-(30)  Nonlinear  Parameters  and  Coefficients 

PUFF (31) - (32)  Admittance  Submatrix 

After  return  from  subroutine  DA. TOUT ,  the  bias  switch  IBSW  is 
cleared  and  subroutine  SDIN  returns  to  the  calling  program. 


TYPF=2  Parameter  Card 


From  one  to  four  decimal  parameters  are  extracted  from  the 


card  image,  formatted, 

and 

stored 

in  the  data 

buffer 

by 

subroutine  DFCIM 

.  The 

number  of 

values  decoded 

and 

their 

placement  in  the 

buffer 

depend 

on  the 

parameter  count 

,  NXT, 

and 

the  end-of-data 

switch 

,  ISW. 

Upon 

entering  the  subroutine 

,  NXT 

contains  the  number  of  values  input  on  previous  data  cards. 
Parameter  storage  begins  at  PUFF(NVJ)  where  NW=NXT+1  and  proceeds 
through  successive  buffer  locations  as  data  values  are  decoded  by 
subroutine  DECIV.  if  an  end-of-data  is  encountered ( ISW=1 )  before 
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BUFF ( 4 )  is  filled,  the  parameter  count  is  reset  to  the  last 
buffer  location  used  (NXT=NW)  and  control  returns  to  the  calling 
program  in  anticipation  of  additional  parameter  cards. 

TYPF=6  Node  Card 

The  nodes  of  connection  are  extracted  from  the  card  image, 
formatted,  and  stored  in  MISC(3)  and  MISC(4)  by  subroutine 
NODEIN. 

TYPE=16  or  17  FB  or  PP  Card 

The  bias  switch  is  set:  l=forward-bias ,  2=r everse-bias . 
The  FB  or  PB  identifier  is  decoded  by  subroutine  ALPHA.  If  an 
end-of-data  is  encountered  ( ISW=1 ) ,  subroutine  SDIN  returns  to 
the  calling  program.  Otherwise  control  transfers  to  TYPE=2 
processing  for  the  remaining  data  on  the  card. 

Any  other  value  of  TYPE  constitutes  an  input  error  which  is 
handled  by  subroutine  ERPOP  before  exit  to  the  calling  program. 
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NAME:  SHIFT 


TYPE*  SUBROUTINE 

GENERAL  PURPOSE ? 

Right-justif ies  the  card  image  stored  in  CARD(l)  through 
CARD  (80) 

VARIABLES: 

CARD  =  Card  image,  one  character  per  word,  left- justified 
I  =  Index  for  CARD  array 

SUBROUTINES  CALLED: 

RSHIFT 

CALLING  PROGRAMS: 

MAIN 

DESCRIPTION: 

Subroutine  SHIFT  belongs  to  a  group  of  Phase  0  character 
manipulation  routines  which  format  NCAP  input  data.  Input  cards 
are  read  by  NCAP's  main  program  into  the  integer  arrsv  CARD  under 
FORMAT  (80A1)  which  places  one  alphanumeric  character  in  the  most 
significant  bits  each  word  of  the  card  image 
(lef t-justif ication) .  The  binary  equivalents  of  such  characters 
are  frequently  negative  numbers  or  very  large  positive  numbers 


which  are  difficult  to  manipulate  arithmetically  because  of 
overflow,  propagation  of  the  sign  bit,  and  end-around  carry. 

By  shifting  each  character  of  the  card  image  from  the  most 
significant  to  the  least  significant  bits  and  zero-filling  to  the 
left,  every  character  can  be  represented  as  a  small  positive 
integer  which  can  be  easily  manipulated  by  arithmetic  means. 

Subroutine  SHIFT  performs  this  conversion  on  the  input  card 
image  in  preparation  for  character  manipulation  by  the  formatting 
routines  of  Phase  0.  The  80  left-justified  card  characters  are 
transmitted  to  the  routine  in  the  integer  array  CARD, 
right-justified  by  subroutine  RSHIFT ,  and  returned  to  the  calling 
program  in  CARD. 


NAME:  TRNIN 


TYPE:  SUBROUTINE 

GENERAL  PURPOSE: 

Processes  *TRANSISTOR  card  sequence  according 
to  the  value  of  TYPE: 

TYPE  =  1  End  of  card  sequence 
TYPE  =  2  Parameter  card 

TYPE  =  6  Node  card 

VARIABLES: 

ISW  =  End  of  data  switch;  Off  =0,  On  =  1 
NW  =  Word  counter  for  parameter  input 
STRING  =  Alphanumeric  string  representation  of  input 
value 

SUBROUTINES  CALLED: 

DATOUT  DECIM  ERROR  NODEIN 

CALLING  PROGRAMS: 

PRCSS 

DESCRIPTION: 

Subroutine  TRNIN  is  the  input  processor  for  TRANSISTOR  card 
sequences.  Its  function  is  to  decode  the  bipolar  junction 
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transistor  input  data  according  to  an  anticipated  format, 
translating  the  input  into  appropriate  data  and  driver  records 
for  use  by  subseouent  NCAP  phases. 

Each  call  to  subroutine  TRNIN  causes  a  single  input  card  to 
be  processed.  The  card  image  and  its  TYPE  code  are  transmitted 
through  common  storage  to  subroutine  TRNIN  which  processes  the 
card  according  to  its  TYPE  as  follows: 


TYPE=1  End  of  Card  Seauence 


Subroutine  DATOUT  is  called  to  complete  the  driver  record 
and  close  the  transistor  definition.  The  input  is  tested  for 
errors  and  the  data  and  driver  records  are  written  to  disk.  The 
driver  record  is  written  to  file  21  from  the  first  ten  words  of 
global  common,  where: 


M0DE=9 
STADD 
LKGTH-102 
MISC  (3) 


Transistor  Identifier 
Data  File  Record  Number 
Length  of  Data  Record  in  Words 
Pase  Node  of  Connection 


The  other  >'ISC  driver  parameters  are  not  used. 

The  transistor  data  record,  written  to  file  2(1  from  the 
common  data  buffer  PUFF,  is  102  words  in  length.  This  record 
allocated  sufficient  disk  storage  for  the  transistor  input  values 
as  well  as  all  other  data  generated  internally  by  its  model  for 
use  by  subseouent  NCAP  phases: 

BUFF (1 ) - (20)  Input  Values 
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Nonlinear  Parameters  and  Coefficients 


BUFF (21)- (70) 

BUFF(71)-(102)  Admittance  Submatrix 

TYPE=2  Parameter  Card 


From  one  to  sixteen  decimal  parameters  are  extracted  from 
the  card  image,  formatted,  and  stored  in  the  data  buffer  by 
subroutine  DECIm.  The  number  of  values  decoded  and  their 
placement  in  the  buffer  depend  on  the  parameter  count,  NXT ,  and 
the  end-of-data  switch,  ISW.  Upon  entering  the  subroutine,  NXT 
contains  the  number  of  values  input  on  previous  data  cards. 
Parameter  storage  begins  at  BUFF(NW)  where  NW=NXT+1  and  proceeds 
through  successive  buffer  locations  as  data  values  are  decoded  by 
subroutine  DECIN.  If  an  end-of-data  is  encountered  (ISW=1) 
before  EUFF(16)  is  filled,  the  parameter  count  is  reset  to  the 
last  buffer  location  used  (NXT=NW)  and  control  returns  to  the 
calling  program  in  anticipation  on  additional  parameter  cards. 


TYPE*6  Node  Card 


The  base  node  of  connection  is  extracted  from  the  card 
image,  formatted,  and  stored  in  MISC(3)  by  subroutine  NODEIN. 

Any  other  value  of  TYPE  constitutes  an  input  error  which  is 
handled  by  subroutine  EPROR  before  exit  to  the  calling  program. 
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NAME?  VDIN 


TYPE?  SUBROUTINE 

GENERAL  PURPOSE* 

Processes  * VACUUM  DIODE  card  seauence  according 
to  the  value  of  TYPE* 

TYPE  =  1  End  of  card  sequence 
TYPE  =  2  Parameter  card 

TYPE  =  6  Node  card 

VARIABLES* 

ISN  =  End  of  data  switch?  Off  =  0,  On  =  1 

NW  =  word  counter  for  parameter  input 

STRING  *  Alphanumeric  string  representation  of  input 
value 

SUBROUTINES  CALLED* 

DATOUT  DECIM  ERROR  NODEIN 

CALLING  PROGRAMS: 

PPCSS 

DESCRIPTION* 


Subroutine  VDIN  is  the  input  processor  for  VACUUM  DIODE  card 
seouences.  Its  function  is  to  decode  the  vacuum  diode  input  data 


according  to  an  anticipated  format,  translating  the  input  into 
appropriate  data  and  driver  records  for  use  by  subsequent  NCAP 
phases. 

Each  call  to  subroutine  VDIN  causes  a  single  NCAP  input  card 
to  be  processed.  The  card  image  and  its  TYPE  code  are 
transmitted  through  common  storage  to  subroutine  VDIN  which 
processes  the  card  according  to  its  TYPE  as  follows- 

TYPE-1  End  of  Card  Sequence 

Subroutine  DATOUT  is  called  to  complete  the  driver  record 
and  to  close  the  vacuum  Diode  definition.  The  input  is  tested 
for  errors  and  the  data  and  driver  records  are  written  to  disk. 
The  driver  record  is  written  to  file  21  from  the  first  ten  words 
of  global  common,  where- 

M0DE=6  Vacuum  Diode  Identifier 

STADD  Data  File  Record  Number 

LNGTH=1 5  Length  of  Data  Record  in  Words 

MISC(3)  Positive  Node  of  Connection 

MISC  ( 4 )  Negative  Node  of  Connection 

Other  MISC  driver  parameters  are  not  used. 

The  vacuum  diode  data  record,  written  to  file  20  from  the 
common  data  buffer  PUFF,  is  15  words  in  length.  This  record 
allocates  sufficient  disk  storage  for  the  vacuum  diode  input 
values  as  well  as  all  other  data  generated  internally  by  its 
model  in  subseouent  NCAP  phases- 
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PUFF (1 ) - ( 3) 

RUFF ( 4 ) - ( 1 3) 

PUFF (14) - (15) 

TYPE=2  Par ameter  Card 

From  one  to  three  decimal  parameters  are  extracted  from  the 
card  image,  formatted,  and  stored  in  the  data  buffer  by 
subroutine  DECIM.  The  number  of  values  decoded  and  their 
placement  in  the  buffer  depend  on  the  parameter  count,  NXT,  and 
the  end-of-data  switch,  ISW.  Upon  entering  the  subroutine,  NXT 
contains  the  number  of  values  input  on  previous  data  cards. 
Parameter  storage  begins  at  PUFF(NW)  where  NW=NXT+1  and  proceeds 
through  successive  buffer  locations  as  data  values  are  decoded  by 
subroutine  DECIN’.  If  an  end-of-data  is  encountered  (ISW=1)  before 
PUFF(3)  is  filled,  the  parameter  count  is  reset  to  the  last 
buffer  location  used  (NXT=NW)  and  control  returns  to  the  calling 
program  in  anticipation  of  additional  parameter  cards. 

TYPE=6  Node  Card 


Input  Values 
Nonlinear  Coefficients 
Admittance  Submatrix 
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The  nodes  of  connection  are  extracted  from  the  card  image, 
formatted,  and  stored  in  PISCO)  and  vise  (4)  by  subroutine 
NODEIN. 

Any  other  value  of  TYPE  constitutes  an  input  error  which  is 
handled  by  subroutine  ERROR  before  exit  to  the  calling  program. 
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NAME  r  VTIN 

+  0 

TYPE  :  SUBROUTINE 

CFNERAL  PURPOSE: 

Processes  ^VACUUM  TPIODF  card  sequence  according 
to  the  value  of  TYPE' 

.  TYPE  =  1  End  of  card  sequence 
TYPE  =  2  Parameter  card 

TYPE  =  6  Node  card 

VARIABLES' 

ISW  =  End  of  data  switch;  Off  *  0,  On  =  1 

NW  *  Word  counter  for  parameter  input 

STRING  *  Alphanumeric  string  representation  of  input 
value 

SUBROUTINES  CALLED' 

PATOUT  DECIM  ERROR  NODEIN 

CALLING  PROGRAMS' 

PRCSS 

DESCRIPTION' 

Subroutine  VTIN  is  the  input  processor  for  VACUUM  TRIODE 
card  seouences.  its  function  is  to  decode  the  vacuum  triode 
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input  data  according  to  an  anticipated  format,  translating  the 
input  into  appropriate  data  and  driver  records  for  use  by 
subsequent  NCAP  phases. 

Each  call  to  subroutine  VTIN  causes  a  single  NCAP  input  card 
to  be  processed.  The  card  image  and  its  TYPE  code  are 
transmitted  through  common  storage  to  subroutine  VTIN  which 


processes  the  card  according  to  its  TYPE  as  follows: 


TYPE=1  End  of  Card  Sequence 


Subroutine  DATOUT  is  called  to  complete  the  driver  record 
and  to  close  the  Vacuum  Triode  definition.  The  input  is  tested 
for  errors  and  the  data  and  driver  records  are  written  to  disk. 
The  driver  record  is  written  to  file  21  from  the  first  ten  words 
of  global  common,  where* 


MODE=7 


Vacuum  Triode  Identifier 


STADD 


Data  File  Record  Number 


INGTH=40 


Lenath  of  Data  Record  in  Words 


NISC  (3) 


Ease  Node  of  Connection 


Other  PISC  driver  parameters  are  not  used. 

The  vacuum  triode  data  record,  written  to  file  20  from  the 
common  data  buffer,  PUFF,  is  40  words  in  length.  This  record 
allocates  sufficient  disk  storage  for  the  vacuum  triode  input 
values  as  well  as  all  other  data  generated  internally  by  its 
model  in  subseouent  NCAP  phases: 


PUFF (1) - (9) 


Input  Values 
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BUFF  (1C*)  —  (22)  Nonlinear  Parameters  and  Coefficients 

BUFP(23)- (40)  Admittance  Submatrix 

TYPE«2  Parameter  Card 


From  one  to  nine  decimal  parameters  are  extracted  from  the 
card  image,  formatted,  and  stored  in  the  data  buffer  by 
subroutine  DECIM.  The  number  of  values  decoded  -and  their 
placement  in  the  buffer  depend  on  the  parameter  count,  NXT,  and 
the  end-of-data  switch,  ISW.  Upon  entering  the  subroutine,  NXT 
contains  the  number  of  values  input  on  previous  data  cards. 
Parameter  storage  begins  at  BUFF(NW)  where  NW=NXT+1  and  proceeds 
through  successive  buffer  locations  as  data  values  are  decoded  by 
subroutine  DECIM.  If  an  end-of-data  is  encountered  (ISW=1) 
before  BUFF (9)  is  filled,  the  parameter  count  is  reset  to  the 
last  buffer  location  used  (NXT=NW)  and  control  returns  to  the 
calling  program  in  anticipation  of  additional  parameter  cards. 


TYPE*6  Node  Card 


The  base  node  of  connection  is  extracted  from  the  card 
image,  formatted,  and  stored  in  MISC(3)  by  subroutine  NODEIN. 

Any  other  value  of  TYPE  constitutes  an  input  error  which  is 
handled  by  subroutine  ERROR  before  exit  to  the  calling  program. 


*  * 


PHASE1 


CPMTJF 

CPMTSD 

CPMTVD 

CPPT 

CPT 

CPVT 

DERIDS 

FIDS 

IMLOC 

MTPT 

MTT 

MTVT 
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NAME:  PHASEl 


*  0 


TYPE:  SUBROUTINE 

GENERAL  PURPOSE: 

Controls  calculation  of  nonlinear  device  parameters  and 
submatrices.  Creates  freouency  table.  Determines 
size-  of  admittance  matrix.  Performs  automatic  node 
numbering  of  multi-node  devices. 

VARIABLES: 

FNO  =  User-assigned  frequency  numbers 

FREQ  =  Frequency  values 

FRTBL  =  Frequency  number  table: 

Subscript  =  Sequential  frequency  number 

Value  =  User-assigned  frequency  number 
JRECS  *  Intermediate  storage  for  driver  file  record 
number 

MAX  =  Intermediate  storage  for  maximum  node  number 
MAXIT  =  Total  number  of  frequency  sweep  iterations 
NCOMP  =  Length  of  linear  or  nonlinear  component  data 
record 

NFRFO  *  Number  of  frequencies  defined  for  given 
generator 

NODE  *  Maximum  node  number  (order  of  admittance 
matrix) 
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NORDR  -  Total  number  defined  frequencies  (order  of 
analysis) 

SUBROUTINES  CALLED: 

CPMTJF  CPMTSD  CPMTVD  CPPT  CPT 

CPVT  DATARD  DATAWP  DRIVED  DRIVWR 

FRROR  MTPT  MTT  MTVT 

PHASE2  PTIME  TIMOUT 

CALLING  PROGRAMS  * 

END IN  PHASE4  PHASF5  PHASE6  PHASE7 

DESCRIPTION: 

Subroutine  PHASEl  is  the  principal  routine  on  NCAP’s  first 
computational  phase.  It  creates  the  frequency  table,  controls 
the  calculation  of  nonlinear  device  parameters  and  admittance 
submatrices,  performs  automatic  node  numbering  of  multi-node 
circuit  elements,  and  determines  the  order  of  the  admittance 
matrix. 

The  path  of  execution  through  subroutine  PHASEl  is  governed 
by  a  sequential  scan  of  the  driver  file.  The  scan  is  initialized 
by  setting  the  driver  record  number  to  the  start  of  the  file, 
DRVFC=1.  Subroutine  DPIVRD  reads  a  driver  record  from  file  21 
and  places  it  in  the  first  ten  words  of  common  storage.  PHASEl 
responds  to  the  MODE  of  the  driver  record,  causing  it  to  be 
processed  as  follows: 
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M0DEb1  Driver  File  Header 


The  frequency  count  is  initialized  to  NORDR=0,  the  frequency 
number  table  is  cleared  by  FRTBL(I)=0  for  1=1,  2,... 10,  and  the 
number  of  freauency  sweep  iterations  is  set  to  MAXIT=0.  The  next 
file  20  location  available  for  data  storage  is  defined  by 
DATREC=MISC (1)  and  control  returns  to  the  driver  file  scan. 

MODE" 1 3  Star t  Circuit 

The  order  of  the  admittance  matrix,  defined  as  the  largest 
node  number  in  the  circuit,  is  initialized  to  NODE=l  and  control 
returns  to  the  driver  file  scan. 

MODE=3  Generator 

Processing  of  the  generator  driver  record  begins  bj 
determining  if  more  than  one  generator  employs  freauency 
sweeping.  If  the  present  generator  does  not  specify  sweeping 
(MISC(6)  =0),  the  test  is  by-passed.  However,  if  the  present 
generator  employs  sweeping  (MAXIT>0)  and  a  previous  generator 
also  specified  sweeping  (MAXIT^0),  an  appropriate  error  message 
is  printed  and  program  execution  terminates.  Otherwise  the 


number  of  frequency  sweep  iterations,  MAXIT,  is  set  from  MISC(6) 


of  the  generator  driver  record. 

The  generator  data  record  is  read  from  file  20  by  subroutine 


DATAPC  and 

stored 

in  the 

common 

data 

buffer  PUFF. 

The 

user-assigned 

frecuency 

numbers 

are 

transferred 

from 

PUFF (30) -  (40) 

to  the 

integer 

vector 

FN0 

and  the  number 

of 

freauencies 

defined 

for  the 

generator , 

NFPEQ,  is  set 

from 

'<ISC  (1)  . 

Next  the  frecuency  numbers  and  values  are  appended  to  the 
frecuency  table  as  follows*  for  each  defined  frecuency  1  =  1, 
NFRFC,  the  seouential'  frecuency  number  is  incremented  by 
fTFTP=rcrrr+l .  If  the  frecuency  table  is  full  (FCBDP.GT.6) ,  an 
acprorr iate  errcr  . message  is  printed  and  program  execution 
terminates.  The  user-assigned  frecuency  number  is  tested  for 
unicueress  against  those  already  in  the  table.  If  FN0(I)  = 
FPTPL(J)  for  any  J  =  1 ,  2 , . . . (NORDP-1 ) ,  then  an  error  message  is 
printed  and  execution  stops.  Otherwise  the  frequency  number  and 
value  are  appended  to  the  table  by: 

FPTPL (KOFDP) =FN0 (I) 

FPEO (NOPDP) =BUFF ( I ) 

After  all  the  generator  freauencies  have  been  placed  in  the 
table,  the  order  of  the  admittance  matrix  is  updated  to  the 
maximum  of  (NODE,  MISC(3),  MISC(4))  and  control  returns  to  the 
driver  file  scan. 


MO nr =4  Linear  Components 
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The  linear  components  data  record  is  read  from  file  20  by 
subroutine  DATARD  and  stored  in  the  common  data  buffer  BUFF.  The 
length  of  the  data  record,  NCOMP,  is  set  from  MISC(l).  For  each 
four-word  component  definition  the  nodes  of  connection  are 
extracted  from  the  data  buffer  and  stored  in  K  and  L  and  the 
order  of  the  admittance  matrix  is  updated  to  the  maximum  of 
(NODE,  K,  L)  .  Control  then  returns  to  the  driver  file  scan. 

M0DE=5  Nonlinear  Components 

The  nonlinear  components  data  record  is  read  from  file  2f!  by 
subroutine  DATA  PD  and  stored  in  the  common  data  buffer  BUFF.  The 
length  of  the  data  record,  NCOMP,  is  set  from  MISC  (1).  For  each 
13-word  component  definition  the  nodes  of  connection  are 
extracted  from  the  data  buffer  and  stored  in  K  and  L  and  the 
order  of  the  admittance  matrix  is  updated  to  the  maximum  of 
(NODE,  K,  L) .  Control  then  returns  to  the  driver  file  scan. 

mqde=6  Vacuum  Diode 

The  vacuum  diode  data  record  is  read  from  file  20  by 
subroutine  DATAFD  and  stored  in  the  common  data  buffer  PUFF. 
Subroutine  CPMTVD  is  called  to  calculate  the  nonlinear  parameters 
and  admittance  submatrix  which  are  appended  to  the  data  record. 
The  data  record  is  rewritten  to  file  2B  by  subroutine  DATAKR ,  the 


order  of  the  admittance  matrix  is  updated  to  the  maximum  of 
(NODE,  wiSC(3),  MISC { 4 ) ) ,  and  control  returns  to  the  driver  file 
scan . 

MCDF=7  Vacuum  Triode 

The  vacuum  triode  data  record  is  read  from  file  20  by 
subroutine  DATAPD  and  9tored  in  the  common  data  buffer  BUFF. 
Subroutine  CPVT  and  MTVT  are  called  to  calculate  the  vacuum 
triode  nonlinear  parameters  and  admittance  submatrix  which  are 
appended  to  the  data  record.  The  data  record  is  rewritten  to 
file  20  by  subroutine  CATAWR  and  the  nodes  of  the  device  are 
numbered  by: 

MISC(4)=MISC(3)+2 

The  driver  record  is  rewritten  to  file  21  by  subroutine  DRIVKR, 
the  order  of  the  admittance  matrix  is  updated  to  the  maximum  of 
(NODE,  MISC  (3),  MISC(4)),  and  control  returns  to  the  driver  file 
scan . 

vCrE=8  Vacuum  Pentode 

The  vacuum  pentode  data  record  is  read  from  file  20  by 
subroutine  DATAPD  and  stored  in  the  common  data  buffer  EUFF. 
Subroutine  CPPT  and  VTPT  are  called  to  calculate  the  vacuum 
rentode  nonlinear  parameters  and  admittance  submatrix  which  are 
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appended  to  the  data  record.  The  data  record  is  rewritten  to 
file  20  by  subroutine  DATAWR  and  the  nodes  of  the  device  are 
numbered  by: 

MI SC (4) =MISC(3)+3 

The  driver  record  is  rewritten  to  file  21  by  subroutine  DFIVWR, 
the  order  of  the  admittance  matrix  is  updated  to  the  maximum  of 
(NODE,  MISC(3),  MISC ( 4 ) ) ,  and  control  returns  to  the  driver  file 
scan. 

M0DE=9  Bipolar  Junction  Transistor 

The  transistor  data  record  is  read  from  file  20  by 
subroutine  DATARD  and  stored  in  the  common  data  buffer  BUFF. 
Subroutines  CPT  and  MTT  are  called  to  calculate  the  transistor 
nonlinear  parameters  and  admittance  submatrix  which  are  appended 
to  the  data  record.  The  data  record  is  rewritten  to  file  2(5  by 
subroutine  DATAWR  and  the  nodes  of  the  device  are  numbered  by: 
MISC(4) =MISC(3)+3 

The  driver  record  is  rewritten  to  file  21  by  subroutine  DRIVWP, 
the  order  of  the  admittance  matrix  is  updated  to  the  maximum  of 
(NODE,  MISC(3),  MISC(4)),  and  control  returns  to  the  driver  file 
scan . 


MODF=10  Semiconductor  Diode 


a.  * 


The  semiconductor  diode  data  record  is  read  from  file  20  by 
subroutine  DATARD  and  stored  in  the  common  data  buffer  BUFF. 
Subroutine  CPMTSD  is  called  to  calculate  the  nonlinear  parameters 
and  admittance  submatrix  which  are  appended  to  the  data  record. 
The  data  record  is  rewritten  to  file  20  by  subroutine  DATAWR ,  the 
order  of  the  admittance  matrix  is  updated  to  the  maximum  of 
(NODE,  FISC  ( 3 )  ,  FISC  ( 4 ) ) ,  and  control  returns  to  the  driver  file 
scan. 


FODE=20  Junction  Field  Effect  Transistor 

The  junction  field  effect  transistor  data  record  is  read 
from  file  20  by  subroutine  DATARD  and  stored  in  the  common  data 
buffer  DUFF.  Subroutine  CPMTJF  is  called  to  calculate  the 
nonlinear  parameters  and  admittance  submatrix  which  are  appended 
to  the  data  record.  The  data  record  is  rewritten  to  file  20  by 
subroutine  DATAWR  and  the  nodes  of  the  device  are  numbered  by: 

MISC ( 4 ) =FISC ( 3 ) +3 

The  driver  record  is  rewritten  to  file  21  by  subroutine  DRIVWR, 
the  order  of  the  admittance  matrix  is  updated  to  the  maximum  of 
(NODF,  MISC(3),  MISC(4)),  and  control  returns  to  the  driver  file 
scan . 


MCDE=25  Linear  Dependent  Source 

*  9> 
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The  order  of  the  admittance  matrix  is  updated  to  the  maximum 
of  (NODE,  MISC  (2) ,  MI5C ( 3 ) ,  MISC(4),  MISC(5))  and  control  returns 
to  the  driver  file  scan. 

MODE=26  Nonlinear  Dependent  Source 

The  order  of  the  admittance  matrix  is  updated  to  the  maximum 
of  (NODE,  KISC  (2)  ,  MISC  (3 ) ,  MISC(4),  NISC(5))  and  control  returns 
to  the  driver  file  scan. 

VCDE=1 4  End  Circuit 

The  driver  file  record  number  is  saved  by  JRECS=DPVFEC  and 
reset  to  that  of  the  start  circuit  driver  record  by  DRVREC 
=NISC(1).  An  updated  start  circuit  (f'CDF=13)  driver  record  is 
created  with  the  order  of  the  admittance  matrix,  NODE,  stored  in 
NISC(4).  The  start  circuit  driver  record  is  rewritten  to  file  21 
by  subroutine  DRIVKP,  the  driver  file  record  number  is  restored 
to  DPVREC=JPFCF ,  and  control  returns  to  the  driver  file  scan. 

NOE E= 1 6  End 

The  driver  file  header  is  read  from  file  21  by  subroutine 

DPI VRD .  The  freauency  table  is  transferred  from  the  EREC  and 
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FPTPt  arrays  to  the  coition  data  buffer  BUFF  and  output  to  file  20 
by  subroutine  DATAWF .  The  record  number  and  length  of  the 
freauency  table  are  stored  in  the  driver  header  record  by  STADD= 
DATREC  and  LMCTH=20.  The  next  available  file  20  storage  location 
is  updated  by  DATPFC=DATPEC+LNGTH  and  stored  in  MISC(l).  The 
freauency  count  NOPCF  is  stored  in  MISC(2)  and  the  driver  header 
is  rewritten  to  file  21  by  subroutine  DRIVWR. 

The  FNC  driver  record  signals  the  end  of  the  driver  file 
scan  and  the  completion  of  Phase  1  processing.  Program  control 
transfers  to  subroutine  PHASE2 . 

For  other  values  of  MODE  encountered  in  the  driver  file 
scan,  control  transfers  back  to  the  scan  without  further 


NAME?  CPMTJF 


*  r 


TYPE:  SUBROUTINE 

GENERAL  PURPOSE: 

Calculates  nonlinear  coefficients  and  creates  admittance 
submatrix  for  junction  field  effect  transistor 

VARIABLES: 

A  =  Nonlinear  coefficients 

AX  =  Intermediate  calculation  for  A 

B  =  Input  values 

C  =  Nonlinear  coefficients  and  input  values 
CGD  =  Input  value 

D  =  Intermediate  calculation  for  A 

FK  =  Input  value 

FM  =  Input  value 

GIDS  =  Intermediate  calculation  for  C 

IDMAX  =  Input  value 

PJ  =  Admittance  submatrix 

RHO  =  Input  Value 

0  =  Intermediate  storage  for  input  values 

RS  =  Input  value 

VBI  =  Input  value 

VGS  =  Intermediate  storage  for  input  value 
VGSI  =  Input  value 
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VO  *  Input  value 

VP  =  Input  value 

VSUM  =  Intermediate  calculation  for  C 
W  =  Coefficient  used  in  calculation  for  C 

WM  =  Exponent  used  in  calculation  for  C 

ZFACT  =  Multiplicative  accumulator  for  factorial 

SUBROUTINES  CALLED- 
DERN  FIDS 

CALLING  PROGRAMS: 

PHASEl 

DESCRIPTION: 

Subroutine  CPMTJF  calculates  the  device  parameters  and 
admittance  submatrix  for  the  junction  field  effect  transistor. 
The  parameters  are  derived  from  the  input  values  stored  in  the 
first  22  words  of  the  JFET  data  record  which  is  transmitted  to 
subroutine  CPMTJF  in  the  common  data  buffer.  The  calculated 
device  parameters  and  admittance  submatrix  are  stored  in  the  data 
record  which  is  returned  to  subroutine  PHASEl  and  rewritten  to 
file  20  for  use  by  subsequent  NCAP  phases. 

The  FET  model  includes  analytic  generation  of  the  nonlinear 
coefficients  A  and  C  from  input  values  or  the  direct  calculation 
of  A  and  C  coefficients  from  input  parameters.  The  method  of 
calculating  coefficients  is  determined  by  the  value  of  MISC(2)  in 
the  JFET  driver  record.  For  MISC{2)=2  the  coefficients  are 
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generated  analytically  otherwise  the  coefficients  are  calculated 
directly. 

The  analytic  generation  of' coefficients  begins  by  storing 
the  input  B-parameters  in  the  vector  0  and  saving  E ( 5 )  in  VGS. 
Then  the  function  VGSI  is  calculated  iteratively  under  control  of 
the  index  I.  VGSI  is  recursive  in  IDS,  a  function  evaluated  by 
subroutine  FIDS.  (Since  the  calculation  of  IDS  is  presented  in 
detail  in  the  narrative  description  of  subroutine  FIDS,  it  is  not 
repeated  here.)  The  algor ithir  for  computing  VGSI  begins  by 
evaluating  IDS  at  the  operating  point  X0=VGSI ,  an  input 
parameter.  Upon  return  from  subroutine  FIDS,  the  calculated 
value  for  IDS(X0)  is  stored  in  GIDS. 

For  successive  iterations,  the  operating  point  is  recomputed 
as  X0  =  VGSI  -  GIDS  *  PS  and  the  function  IDS(X0)  is  evaluated 
again.  After  the  tenth  iteration,  the  final  result  is  added  to 
V0  to  form  the  expression- 


VSUM  =  V0  +  VGSI 

The  first  order  coefficient  C  ( 1 )  is  then  defined  as- 

I  I  -FM 

C ( 1 )  «  FK  *  IvSUMl 
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X  / 


A (3)  =  A (3)  +  2.  *  B (2)  *  RS 


A  ( 4 )  =  A  ( 4 )  +  5.  *  B  (2)  *  B(3)  »  RS  +  5.  »  B(2)  2  »  RS2 

B6  D7 

AX  =  (6.  *  B ( 2 )  *  E (4 )  *  RS)  +  (3.  *  B (3) 2  *  RS) 

D7 


A ( 5 )  =  A (5)  +  AX 


AX  =  21.  *  B(2) 2  *  B(3)  *  RS2 

8 

B 


A  ( 5)  =  A  ( 5 )  +  AX  +  14.  * 


4 

E  (2) 


*RS 


The  C-coef f icients  are  calculated  directly  from  the  input 
C-vector  according  to: 

C(I)  =  C(I)  /  II  for  I  =  2,3, ...10 

After  the  nonlinear  coefficients  have  been  calculated, 

subroutine  CPMTJF  calculates  the  complex  admittances  for  the 

4-node  junction  field  effect  transistor  and  stores  them  in  the 

‘ ‘  submatrix  P J .  The  submatrix  storage  area  is  first  zeroed,  and 

then  the  admittances  are  placed  in  the  submatrix  as  follows- 
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Higher  order  coefficients  C(I),  I  =  2, 3,. ..10  are  derived  by 

differentiating  C(I-  1)  and  dividing  by  (I  -  1)!  Since  each 

n  ... 

C{I-1)  is  a  function  of  the  form  mx  ,  its  derivative  is  computed 
directly  as  nmx°  1  .  The  coefficient  of  the  derivative  is 
developed  in  Wf  the  exponent  in  WM ,  and  the  factorial  expression 
is  accumulated  in  ZFACT/I. 

The  analytic  generation  of  A-coeff icients  is  performed  by 
subroutine  DERIDS,  which  calculates  the  coefficients  up  to  sixth 
order  by  differentiating  the  function  IDS. 

For  .the  direct  calculation  of  the  FET  nonlinear 
coefficients,  the  A-coef ficients  are  derived  from  the  input 
values  RS  and  E.  First  the  intermediate  calculations  to  simplify 
expressions • 

D  =  1.  -  E (1 )  *  RS 

A  ( I)  =  B(I)/ZI+1  for  I  =  2,3 _ 10 

Then  more  specifically: 

A  (1 )  *  E  ( 1 )  /  D 
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NAME:  CPMTSD 


TYPE:  SUBROUTINE 

GENERAL  PURPOSE: 

Calculates  nonlinear  coefficients  and  creates  admittance 
submatrix  for  semiconductor  diode 

VARIABLES: 


c 

* 

Input  value 

CP 

= 

Input  value 

C2 

S 

Nonlinear  coefficients 

DNIF 

S 

Input  value 

GAMMA 

s 

Nonlinear  coefficients 

IFB 

= 

Input  value 

K 

s 

Nonlinear  coefficients 

MU 

s 

Input  value 

P 

s 

Submatr ix 

RRB 

s 

Input  value 

SMK 

s 

Input  value 

VRB 

- 

Input  value 

SUBROUTINES  CALLED' 
NONE 

CALLING  PROGRAMS- 
PHASEl 
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DESCRIPTION- 

Subroutine  CPMTSD  calculates  the  device  parameters  and 
admittance  submatrix  for  the  semiconductor  diode.  The  parameters 
are  derived  from  the  input  values  stored  in  the  first  eight  words 
of  the  semiconductor  diode  data'  record  which  is  transmitted  to 
subroutine  CPMTSD  in  the  common  data  buffer.  The  calculated 
device  parameters  and  admittance  submatrix  are  stored  in  the  data 
record  which  is  returned  to  subroutine  PHASE1  and  rewritten  to 
file  20  for  use  by  subseouent  NCAP  phases. 

The  semiconductor  diode  parameters  include  the  coefficients 
K  and  C2  for  the  forward-biased  model  and  the  coefficients  GAMMA 


for  the  reverse-biased  model. 

The  calculation  of  coefficients  K  for  the  forward-bias  model 
is  recursive.  The  linear  coefficient  is  given  by: 

K ( 1 ) =  IFE/ ( . 026  *  DNIF) 

Higher  order  coefficients  are  calculated  according  to: 

K ( I )  =  K ( 1 )  *  K ( 1-1 ) /  (I  *  IFE) 

The  C2  parameters  are  defined  as  follows: 

C2 (1 )  =  C  +  IFE  *  CP  . 


C2 (2 )  =  CP 

The  calculation  of  coefficients  GAMMA  for  the  reverse-bias 
model  is  recursive.  The  linear  coefficient  is  given  by: 

GAMMA (1)  =  SMK/VRP**MU 

Higher  order  coefficients  are  calculated  according  to: 

GAMMA (I)  =  (I-l-MU)  *  CAMMA ( I — 1 ) / ( I*VRP ) 


The  admittance  submatrix  for  the  semiconductor  diode  is  the 
single  complex  number  represented  by: 

P(l)  =  K (1 )  +  (l./RRB) 

P (2)  =  C2 (1 )  +  GAMMA ( 1 ) 
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NAME:  CPMTVD 


) 


TYPE-  SUBROUTINE 

GENERAL  PURPOSE- 

Calculates  nonlinear  coefficients  and  creates  admittance 
submatrix  for  vacuum  diode 

VARIABLES: 

C  =  Input  value 

G  =  Input  value 

K  =  Nonlinear  coefficients 

P  =  Submatrix 

VPO  =  Input  value 

SUBROUTINES  CALLED- 
NONE 

CALLING  PROGRAMS- 
PHASEl 

DESCRIPTION- 

Subroutine  CPMTVD  calculates  the  device  parameters  and 
admittance  submatrix  for  the  vacuum  diode.  The  parameters  are 
derived  from  the  input  values  stored  in  the  first  three  words  of 
the  vacuum  diode  data  record  which  is  transmitted  to  subroutine 
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CPMTVD  in  the  common  data  buffer.  The  calculated  device 
parameters  and  admittance  submatrix  are  stored  in  the  data  record 
which  is  returned  to  subroutine  PHASE1  and  rewritten  to  file  20 
for  use  by  subsequent  NCAP  phases. 

The  calculation  of  coefficients  K  for  the  vacuum  diode's 
single  nonlinearity  is  recursive.  By  definition  the  linear 
coefficient  is  given  by: 

K(l)  =  1.5  *  G  *  SORT (VPO) 

Higher  order  coefficients  are  calculated  according  to: 

K(I)  =  (2.5-1)  *  K(I-1)/I*VP0 

The  admittance  submatrix  for  the  vacuum  diode  is  the  single 
complex  number  represented  by: 

P  (1)  =  Ml) 

P  ( 2)  =  C 
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NAME:  CPPT 


TYPE*  SUBROUTINE 

GENERAL  PURPOSE* 

Calculates  nonlinear  coefficients  for  vacuuir  pentode 

VARIABLES: 

A  =  Intermediate  calculation 

D  ='  Input  value 

EM  =  Input  value 

FP  =  Nonlinear  coefficients 

F2  =  Nonlinear  coefficients 

G  =  Nonlinear  coefficients 

GO  =  Input  value 

F  =  Nonlinear  coefficients 

IC  =  Binomial  coefficient  for  JP 

INDX  =  Incrementation  vector  for  differentiation 
algorithm 

JC  =  Binomial  coefficient  for  J2 

JP  =  Row  subscript 

J2  =  Column  subscript 

KP  =  Row  subscripts  for  differentiation  algorithm 

K2  =  Column  subscripts  for  differentiation 

algorithm 

MU  »  Input  value 
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PHI  *  Input  value 

0  =  Preliminary  calculation  for  FP  and  F2 

nonlinearities 

S  *  Additive  accumulator 

VP  =  Input  value 

VI  =  Input  value 

VlT  =  Input  value 

V2  =  Input  value 

SUBROUTINES  CALLED- 
NONE 

CALLING  PROGRAMS • 

PHASEl 

DESCRIPTION- 

Subroutine  CPPT  calculates  the  device  parameters  for  the 
vacuum  pentode.  These  parameters  consist  of  the  coefficients  for 
the  four  nonlinearities  of  the  device  model  G,  H,  F2,  and  FP. 

The  parameters  are  derived  from  the  input  values  stored  in 
the  first  twelve  words  of  the  pentode  data  record  which  is 
transmitted  to  subroutine  CPPT  in  the  common  data  buffer. 
Calculated  device  parameters  are  stored  in  the  data  record  which 
is  returned  to  subroutine  PHASEl  and  rewritten  to  file  20  for  use 
by  subsequent  NCAP  phases. 

The  calculaton  of  coefficients  for  the  H  nonlinearity  begins 
by  defining- 
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A=V1+PH1+V2/MU 

H(1)=SCRT(A**3) 

Higher  order  coefficients  are  calculated  recursively  according 
to : 

H ( 1+1 ) = ( 2 . 5 -FLOAT ( I ) )*H(I)/A 
The  G  coefficients  are  calculated  by: 

G (1 ) =G0* (1 . -Vl/VlT) 

G ( 2 ) =-GO/VlT 

For  the  F2  coefficients,  the  computations  begin  by  defining: 
0(1 ,1)  =D*  (VP/V2)  **EN! 

F2(l,l)=l./(1. +0(1,1) ) 

Higher  order  coefficients  are  generated  by  a  differentiation 
algorithm  and  stored  in  the  upper  triangle  of  the  array  F2(5,5). 
Within  the  first  row,  each  successive  column  entry  F2(1,J2+1)  is 
the  derivative  with  respect  to  V2  of  the  preceding  column  entry 
F2(1,J2).  Similarly,  within  a  given  column,  each  successive  row 
entry  F2(JP+1,  J2+1)  is  the  derivative  with  respect  to  VP  of  the 
preceding  row  entry  F2(JP,J2+1). 

Because  F2  is  a  function  of  0,  an  upper  triangular  array 
0(5,5)  is  constructed  to  simplify  the  arithmetic.  The  elements 
of  the  C  array  are  derived  and  stored  according  to  the  same 
differentiation  process  as  the  F2  array. 

The  FP  coefficients  are  calculated  directly  from  the  F2  and 
0  arrays  according  to- 
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FP  (JP+1,  J2+1) 


F2(JP-I+1,J2-J+1)  Q(I+1,J+1) 


In  subroutine  CPPT  the  elements  of  the  Or  F2,  and  FP  arrays 
are  generated  by  columns  within  a  double  loop.  The  outer  loop  is 
indexed  by  J2  which  ranges  from  0  to  4  and  serves  as  the  basis 
for  the  column  subscript.  The  inner  loop  is  indexed  by  JP  which 
serves  as  the  basis  for  the  row  subscript.  JP  ranges  from  1  to 
(4-J2)  for  the  first  column,  effectively  omitting  calculations 
for  the  linear  coefficients  already  evaluated,  and  from  0  to 
(4-J2)  for  the  remaining  columns.  The  indexing  technique  is 
summarized  as  follows: 


STEP  1 :  Jnitialization 

a)  Set  column  index  J2*0  and  row  index  JP=1.  Go  to  Step 
2  for  first  column. 

b)  Set  row  index  JP=0  for  successive  columns. 

STEP  2 _  Calculate  Coefficients 


a) 

Calculate 

C(JP+1 ,  J2+1 ) 

b) 

Calculate 

F2  (JP+1 , J2+1 ) 

c) 

Calculate 

FP (JP+1 , J2+1 ) 
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STEi-  3-  Increment  and  Test  Row  Index 

a)  Increment  JP=JP+1 

b)  If  JP.LE.  (4-J2)  go  to  Step  2  to  calculate  next  row 
entry.  Otherwise  column  is  complete;  go  to  Step  4. 


STEP  4  •  Increment  and  Test  Column  Inde_x 

a)  Increment  J2=J2+1 

b)  If  J2.LE.4  go  to  Step  lb  to  begin  next  column.  Other¬ 
wise  calculations  complete. 

The  elements  0(JP+1,J2+1)  are  calculated  recursively.  For 
the  first  row  (JP=0)  ,  each  successive  column  element  is  a 
function  of  the  preceding  element- 

0 (JP+1 , J2+1)  =  0(JP+1,J2)  *  (-EM-FLOAT ( J2-1 ) )/V2 
For  the  remaining  rows  (JP>0) ,  each  successive  row  element  is  a 
function  of  the  preceding  row  element: 

0 ( JP+1 , J2+1)  =  0(JP,J2+1)  *  ( EM- FLOAT ( JP-1 ) ) /VP 

The  elements  F2 ( JP+1 , J2+1 )  are  calculated  according  to  a 
differentiation  algorithm  similiar  to  that  employed  in  the 
bipolar  junction  transistor  (see  subroutine  CPT) .  The  algorithm 
is  based  on  the  rule  of  elementary  calculus  which  defines  the  nth 
derivative  of  a  product  of  functions  to  be  a  sum  of  products  of 
lower  order  derivatives  of  those  functions.  Given: 

=  c  i  +  Qd,i)  r1 


V1'!) 
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then  its  derivative  with  respect  to  V2 ,  the  next  column  element, 
can  be  expressed  as • 

F2(l,2)  =  -Q(l,2)  *  F2(l,l)  *  F2(l,l) 

Similarly  the  derivative  with  respect  to  VP,  the  next  row  element 
can  be  expressed  as : 

F2(2,l)  =  -0(2,1)  *  F2(l,l)  *  F2(l,l> 

These  products  of  functions  yield  sums  of  products  of  lower  order 
derivatives  when  differentiated- 

F2(l,3)  =  [Q(l,3)  *  F2(l,l)  *  F2(l,l)]  +  [Q(l,2)  *  F2(l,2)  *  F2(l,l)] 

+  [Q (1, 2)  *  F2(l,l)  *  F2(l,2)] 


F2(3,l)  =  [Q(3, 1)  *  F2(l,l)  *  F2(l,l)]  +  [Q(2,l)  *  F2(2,l)  *  F2(l,l)] 

+  [0(2, 1)  *  F2(l,l)  *  F2(2,l)] 

Each  additive  term  is  the  product  of  one  0  and  two  lower-order 
F2's. 

In  subroutine  CPPT  the  row  subscripts  are  stored  in  the 
integer  vector  KP(3),  where  KP(1)  is  the  row  subscript  of  the  0 
element  of  the  product,  KP(2)  is  the  row  subscript  of  the  first 
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F2  element,  and  KP(3)  is  the  row  subscript  of  the  second  F2 
element.  The  integer  vector  K 2 ( 3 )  serves  the  same  purpose  for 
column  subscripts.  In  this  context  the  subscript  vectors  KP=  (1, 
1,  1)  and  K2=(3,  1,  1)  represents  the  product  C ( 1 , 3 )  *  F2(l,l)  * 
F2 (1 , 1 ) . 

The  additive  terms  are  generated  under  the  control  of  the 
vector  INDX(L),  L=1 ,  2...(J2+JP)  where  INDX(1)=1  and  each  INDX(L) 
ranges  from  1  to  3  for  all  other  values  of  L.  The  elements  of 
the  INDX ,  KP,  and  K2  vectors  interact  to  form  the  complete 
expression  for  each  F2  element: 


3 

3 

3 

F»  (JP+1, J2+1)  =  -  E 

E 

E  Q(KP(1),K2(1)  *  F  (KP(2),K2(2 

^  INDX  (2) 

INDX  (3) 

INDX 

=1 

=1 

(JP+J2)  *  F  (KP(3),K2(3)) 

=1 

The  subscripts  for  each  term  are  derived  by  incrementing  the 
initial  subscript  vectors.  KP=(1,  1,  1)  and  K2=(l,  1,  1)  by 
INDX(L)  according  to: 

KP (INDX (L) ) ®KP ( INDX (L) )  +  l  for  L=1  ,  2  ...  J2 

K2(INDX(L))=K2 (INDX (L) ) +1  for  L=(J2+1),  ...  ( J2+JP) 

It  is  important  to  note  that  INDX(l)  is  always  equal  to  1, 
and  that  the  first  J2  elements  of  INDX  define  the  incrementation 
of  the  column  subscripts  K2  while  the  remaining  INDX  elements 
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define  the  incrementation  of  the  row  subscripts  KP.  Furthermore 
for  given  JP  and  J2  (where  F2 (JP+1 , J2+1)  is  the  element  being 
calculated)  ,  there  are  exactly  (JP+J2)  defined  elements  in  INDX. 

Together  these  constraints  force  the  correct  formulation  for 
F2 ( 1 , 2)  and  F2(2,l)  which  are  simply  products  of  the  form  Q*F2*F2 
and  do  not  involve  summations.  The  formulation  of  F2(l,2)  is 
summarized  below  where  JP=0 ,  J2=l,  and  the  single  element 
INDX* ( 1)  increments  K2* 


INDX* ( 1)  KP* (1,1,1) »  K2= (2,1,1)  ^  0(1/2) *F2(1,1) *F2(1,1) 


The  calculation  for  F2(2,l)  is  similar.  JP*1,  J2=0,  and  the 
single  element  INDX=(1)  increments  KP: 


INDX* ( 1 )  +  KP* (2,1,1) ,  K2* (1,1,1)  +  0(2,1) *F2(1,1)*F2(1,1) 


The  calculation  of  F2(l,3)  involves  the  summation  for 
INDX ( 2) *1  through  3  with  INDX(1)=1  and  results  in  three  additive 
terms.  The  formulation  of  F2(l,3)  is  summarized  below  where 
JP=0,  J2=2,  and  both  elements  of  the  INDX  vector  increment  K2: 


INDX* (1.1) KP* (1,1,1)  ,  K 2= (3,1,1)  ^  0(1/3)  *  F2(l,l)  *  F2(l,l) 


INDX=(1,2) +  KP=(1,1,1) ,  K2-(2,2,l) ^  Q(l,2)  *  F2(l,2)  *  F2(l,l) 


INDX= (1,3) 1^  KP= ( 1 , 1 , 1 ) ,  K2=(2,l,2) ^  0(1,2)  *  F2(l,l)  *  F2(l,2) 

The  calculation  for  F2(3,l)  is  similiar.  JP=2,  J2=0  and  both 
elements  of  the  INDX  vector  increment  KP: 

INDX=(1,1) ^  KP=(3,1,1)  ,  K2=(l,l,l)  +  0(3,1)  *  F2(l,l)  *  F2  (1 , 1 ) 

INDX=(1,2)  +  KP=(2,2,1)  ,  K2«(l, 1.1)^  0(2,1)  *F2(2,1)  *F2(1,1) 

INDX= (1,3) KP= (2,1,2) ,  K2= (1,1,1) ^  0(2,1)  *  F2(l,l)  *  F2(2,l) 

Higher  order  derivatives  involve  more  summations  and  are 
therefore  more  complicated.  Consider  for  example  F2(2,3)  which 
contains  nine  additive  terms.  In  this  case  JP=1,  J2=2- 

3  3 

F  (2,3)  =  -  E  Z  Q(KP(1)  ,K2(1))  *  F  (KP(2)  ,K2(2)) 

Z  INDX (2)  INDX (3)  1 

=1  =1 

*  F2(KP(3),K2(3)) 

The  first  J2=2  elements  of  INDX  increment  the  initial  column 
subscripts  K2=(l,l,l)  and  the  remaining  1  element  of  INDX 
increments  the  initial  row  subscripts  KP=(1,1,1).  The  complete 
formulation  is  tabulated  below 
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INDX-  (1,1,1)^  KP*  (2,1,1)  ,K2=(3,1,1)^  Q(2 , 3)  *F2 (1 ,1) *F2 (1 ,1) 
^NDX*  (1,1,2)  KP*  (1,2,1)  ,K2«(3,1,1)^  Q(1 , 3) *F2 (2 , 1) *F2 (1 ,1) 
INDX-  (1,1,3)  ^KP*(1,1,2)  ,K2=(3,1,1)^  0  d  ,  3)  *F2  (1 , 1)  *F2  (2 , 1) 
INfcX- (1,2,1)  ^KP*  (2,1,1)  ,K2=(2,2,1)^  0(2 , 2)  *P2  (1 , 2)  *F2  (1 , 1) 
INDX*  (1,2,2)  #KP=  (1,2,1)  ,K2*(  2,2,1)  ^  0(1,2)  *F2  (2,2)  *F2  (1,1) 
INDX* (1,2,3) ^  KP* (1,1,2) ,K2= (2,2,1) ^  0(1,2) *F2 (1,2) *F2 (2,1) 
INDX* (1,3,1) ^  KP=( 2,1,1) ,K2=( 2,1,2) ^  0(2,2) *F2 (1,1) *F2 (1,2) 
INDX*  (1,3,2)  ^KP- (1,2,1)  ,K2=(2,1,2)  ^  0(1 , 2)  *F2  (2 ,1)  *F2  (1 , 2) 
INDX*  (1,3, 3)  #KP=(1,1,2)  ,K2=(2,1,2)  +  0(1 , 2) *F2 (1 , 1) *F2 (2 , 2) 

The  algorithm  used  in  subroutine  CPPT  to  compute  F2(JP+1, 
J2+1)  can  be  summarized  as  follows : 

STEP  1  *\  Initialization 

a)  \lnitialize  additive  accumulator  S=0. 

b)  Initialize  INDX(I)=1  for  1=1 , 2 , . . . ( JP+J2) 

\ 

V 

\ 

\ 

\ 

STFP  2 •  Ca\c ulate  One  Additive  Term 

\ 

\ 

V 

a)  Initialize  row  subscripts  KP=(1,1,1)  and  column  sub¬ 
script^  K2= (1,1,1).  If  J2=0  go  to  2C.  Otherwise  go 
to  2b. 

D)  Increment  column  subscripts  by: 

K2 (INDX (L) )=K2 (INDX (L) )+l  for  L=1,2,...,J2 


J 


c)  Increment  row  subscripts  by: 


KP ( INDX (L) ) =KP ( INDX (L) ) +1  for  L= ( J2+1 ) , . . . ( JP+J2) 

d)  Form  product- 

C(KP(1) ,K2(1) )  *  F2(KP(2) ,K2(2) )  *  F2 (KP ( 3) , K2 ( 3 ) ) 
and  add  to  accumulator  S. 

STEP  3-  Update  and  Test  INDX 

a)  Initialize  subscript  T=JP+J2. 

b)  If  T.LE.l,  summation  complete  in  S,  go  to  Step  4. 
Otherwise  go  to  3c. 

c)  Increment  INDX (T) =INDX (T) +1 .  If  INDX (T) . LF . 3 ,  go  to 
Step  2.  Otherwise  go  to  3d. 

d)  Set  INDX (T) =1 . 

Decrement  T=T-1.  Go  to  3b. 

STEP  4-  Set  F2  (JP+1 ,  J2+1)  =  -S  and  Exit 

After  each  C(JP+1,J2+1)  and  F2 (JP+1 , J2+1)  have  been 

computed,  then  FP ( JP+1 , J2+1 )  is  accumulated  in  S  according  to  • 

S  =  S  +  FLOAT ( IC* JC)  *  F2(JP-I+1,J2-J+1)  *  0(1+1, J+l) 

where  I  ranges  from  0  to  JP,  J  ranges  from  0  to  J2,  IC  is  the 

JP 

binomial  coefficient  [  i  ]  and  JC  is  the  binomial  coefficient 
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■MB 


FAME  *  CPT 


TYPE:  SUBROUTINE 


GENERAL  PURPOSE 


Calculates  nonlinear  coefficients  for  bipolar 
junction  transistor 


VARIABLES: 

A  =  Input  value 

AA  =  Intermediate  calculations  for  ALPHA 

nonlinearity 

ALPHA  =  Nonlinear  coefficients 
ALPHF  =  Intermediate  calculations  for  ALPHA 
nonlinearity 

AP  =  Multiplicative  accumulator 

C  =  Input  value 

CJ  =  Input  value 

CFPMF  =  Input  value 

FIJ  =  Subscripts  for  polynomial  power  series 

expansion  coefficient 
CAMMA  =  Nonlinear  coefficients 
HC2  =  Nonlinear  coefficients 
I’FENX  =  Input  value 
PM  =  Nonlinear  coefficients 
HMO  =  Calculated  parameter 
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IC 

ICHMO 

ICMAX 

IE 

K 

KS 

MINDX 

MOFD 

MU 

N 

CPFME 

RATIO 

PP 

PPI 

PC 

PCI 

PEF 

PEI 

S 

see 

SCO 

SIC 

ss 

SWTCF 


=  Input  value 
=  Calculated  parameter 
=  Input  value 
=  Calculated  parameter 
=  Input  value 
=  Nonlinear  coefficients 

=  Incrementation  vector  for  differentiation 
algorithm 

=  Subscripts  for  differentiation  algorithm 
=  Input  value 
=  Input  value 

=  Intermediate  calculation  for  HM  nonlinearity 
=  Preliminary  calculation 
=  Input  value 
=  Calculated  parameter 
=  Input  value 
=  Calculated  parameter 
=  Input  value 
=  Calculated  parameter 
=  Additive  accumulator 
=  Input  value 
=  Calculated  parameter 
=  Preliminary  calculation 
=  Additive  accumulator 
=  Control  switch  for  'FUN'  algorithm 
-1  =  Initialize  algorithm 
PI  =  Continue  algorithm 
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1  =  Algorithm  complete 
VCP  =  Input  value 

VC  BO  =  Input  value 

SUBROUTINES  CALLED - 
PUN 

CALLING  PROGRAMS- 
PHASE1 

DESCRIPTION • 

Subroutine  CPT  calculates  the  device  parameters  for  the 
bipolar  junction  transistor.  These  parameters  include  the 
coefficients  for  the  four  nonlinearities  of  the  device  model  (KS, 
CAMNA ,  PM,  and  ALPHA)  and  the  miscellaneous  values  HC2,  ICHN0  . 
PEI ,  IF,  RBI,  PCI,  C(2),  and  SC0  which  are  used  in  the  admittance 
submatrix  and  current  vector  subroutines. 

The  parameters  are  derived  from  the  input  values  stored  in 
the  first  twenty  words  of  the  transistor  data  record  which  is 
transmitted  to  subroutine  CPT  in  the  common  data  buffer. 
Calculated  device  parameters  are  stored  in  the  data  record  which 
is  returned  to  subroutine  PFASF1  and  rewritten  to  file  2f  for  use 
by  sutsecjent  reap  phases. 

The  code  consists  of  two  rain  sections.  The  miscellaneous 
device  parameters,  first  order  coefficients.  and  preliminary 
calculations  which  ate  der  ived  from  straightforward  arithmetic 
expressions,  are  computed  first.  Then  the  higher  order 
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coefficients  are  calculated  recursively  within  a  loop  under  the 
control  of  the  index  I  which  represents  the  order  of  the 
coefficients  being  calculated. 

The  calculation  of  coefficients  for  the  KS  nonlinearity  uses 
the  arithmetic  statement  function - 

ALC1 5*  (X)  =  A  LOG  (X)  *  .4342944819 

which  computes  log  of  a  real  argument.  The  following 
preliminary  calculations  are  performed  to  simplify  arithmetic 
expressions- 

PATIO  =  ALG10 (IC/ICMAX) 

Pro  =  1 ./(l .- (VCE/VCPO) **M) 

IE  =  IC*  (1  .+HFFMX+A*PATIO*RATIC)/FMO/HFEMX 
RF1  =  PFF  *  . P2567C41/IE 

Py  definition  the  linear  coefficient  KS(1)  is  given  by : 

KS ( 1 )  =  1./PE1 

Higher  order  coefficients  are  calculated  recursively  according 
to  • 

K S ( I )  =  KS ( 1-1 ) /FLOAT ( I )  *  RE1  *  IE 
The  coefficients  for  the  GAMMA  nonlinearity  are  also 
calculated  recursively,  where - 

GAMMA (1)  =  K/VCP**MU 
and  for  higher  order  coefficients- 

GAMMA (I)  =  -GAMMA ( 1-1 )  *  (MU-FLOAT ( 1-2) ) /VCP/FLOAT ( I ) 

The  calculation  of  coefficients  for  the  HM  nonlinearity 
begins  with- 

HMO  =  l./(l.“(VCP/VCPO)**N)  «► 

('PPME(l)  =  N  *  VCP*  *  ( N—  1  . )  /VC  BO*  *N 


3-38H 


The  linear  coefficient  HM(1)  is  a  product  of  functions- 
HM ( 1 )  =  HMO  *  HMO  *  CPRME (1) 

Successive  higher  order  coefficients  HM ( I )  ,1=2,3,. ..7  are 
calculated  by  differentiating  the  previous  coefficient  HM(I-l) 
with  respect  to  VCB.  The  algorithm  used  to  compute  the  higher 
order  coefficients  of  the  HM  nonlinearity  is  derived  from  the 
rule  of  elementary  calculus  which  defines  the  nth  derivative  of  a 
product  of  functions  to  be  a  sum  of  products  of  lower  order 
derivatives  of  those  functions.  In  particular,  the  second  order 
coefficient  HM(2),  obtained  by  differentiating  HM(1),  is  a  sum  of 
products  formulated  as  follows- 

HM ( 2)  =  [PM(1) *HM(0) *0PPME(1) ]  +  [HM (0) *HK (1) *OPRME (1) ] 

+  [HM (0) *HM (0) *QPRME  (2) ] 

where  HM(1)  is  the  derivative  of  HM(0)  and  CPPME(2)  is  the 

derivative  of  OPRME(l).  Note  that  each  additive  term  is  the 

product  of  two  lower-order  HM's  and  a  CPRME.  (The  equivalency  of 

HMO  and  HM  ( 0 )  is  forced  by  placing  HMO  and  the  HM  vector  in 

successive  common  storage  locations.) 

The  third  order  coefficient  HM(3),  obtained  by 

differentiating  HM(2),  consists  of  nine  additive  terms,  where 

each  term  is  the  product  of  two  lower-order  HM's  and  a  CPRME.  In 

(I- 1) 

general  each  coefficient  HM(I)  consists  of  3  terms  of  the 

form  HM  *  HM  *  CPPME  where  the  highest  derivative  (subscript)  of 
the  HM's  is  (1-1)  . 

In  subroutine  CPT  these  subscripts  are  stored  in  the  integer 
vector  MOPD  where  M0RD(1)  is  the  subscript  of  the  first  HM  in  the 
product,  MOPD ( 2 )  is  the  subscript  of  the  second  HM ,  and  M0FD(3) 
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is  the  subscript  of  QPRME.  in  this  context  MORD*  (0,0,1) 
represents  the  product  HM (0) *HM (0) *QPRME (1) .  The  3  additive 
terms  are  generated  under  the  control  of  the  vector  MINDX(L), 

L=1 , 2 .  . .  (1-1 )  where  each  MINDX(L)  ranges  from  1  to  3.  The 
elements,  of  the  MINDX  and  MORD  vectors  interact  to  formulate  the 
complete  expression  for  HM(I): 

3  3  3 

=  E  ...  E  E  HM(MDRD(1))  *  HM(MDRD (2) ) 

MINDX(I-l)  MINDX(2)  MINDX(l) 

=1  =1  =1  *  QPRME(MDRD  (3) ) 

The  subscripts  for  each  term  are  derived  by  incrementing  the 
initial  subscript  vector  MORD=(0,0,1)  by  MINDX(L)  according  to: 

MORD (MINDX (L) ) =MORD (MINDX (L) ) +1  for  L=1 , 2 , . . . ( 1-1 ) 

For  example  the  calculation  of  HM(2)  involves  the  single 
summation  for  MINDX (1)  ranging  from  1  to  3: 

3 

HM(2)  =  E  HM(MDRD(1) )  *  HM(MDRD (2) )  *  QPRME  (MDRD  (3) ) 

MINDX(l) 

=1 

The  subscripts  for  each  of  the  three  additive  terms  are  generated 
by  incrementing  MORD=(0,0,1)  by  MINDX  as  follows- 

MINDX=(1)^  MORD  (1,0,1)  HM(1)  *  HM(0)  *  QPRME  ( 1 ) 

MINDX=(2)^  MORD  (0,1,1)  ^  HM(C)  *  HM(1)  *  QPRME  (1 ) 

MINDX*  (3)^  MORD  (0,R,  2)^  HM(3)  *  HM(0)  *  QPRME  ( 2 ) 

«* 

The  calculation  of  HM(3)  involves  the  double  summation  for 
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MINDX(1)=1  to  3  and  MINDX(2)=1  to  3  and  results  in  nine  additive 
terms  as  follows-  . 

MINDX=(1,1)  ^ WORD=(2,0,1) ^  HM(2)  *HW(0)  *CPRME(1) 

MINDX=(2,1)  ^ MORD= (1 ,1 ,1)  ^  HM(1)  *HM(1)  *QPRME(1) 

MINDX=(3,1)  ^  MORD=(1,0,2)  ^HM(l)  *HK(0)  *QPRME(2) 

MINDX=(1,2)  ^  W0RD=(1,1,1)  #HM(1)  *HM{1)  *CPRME(1) 

MINDX=(2,2)  ^  MORD=(0,2,1)  ^HM(0)  *H^(2)  *CPRME(1) 

MIKDX=  (3,2)  MORD-  (0,1,2)  1^  HN1  ( 0 )  *  HM(1)  *  0PRME<2) 
MINDX=(1,3)^  MORD=(1,0,2)  ^HM(l)  *HM(0)  *0PRME(2) 
MINDX=(2,3)^  *ORD=(0,1,2)  #HM(0)  *Hy(l)  *QPRME(2) 
MINDX=(3,3)#  MORD=(0,0,3)  #HM(0)  *HK(0)  *CPRFE(3) 

The  algorithm  used  in  subroutine  CPT  to  compute  HM(I)  can  be 
summarized  as  follows: 

STEP  1:  Initialization 

a)  Define  11=1-1 

b)  Calculate  QPRME(I) 

c)  Initialize  additive  accumulator  S=0. 

d)  Initialize  MINDX(L)=1  for  L=1,2...II 

STEP  2-.  Create  One  Additive  Term 
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Initialize  subscript  vector  MORD=(0,0,1) 

Calculate  subscripts  by: 

MORD (MINDX (L) ) =MORD (MINDX (L) ) +1 
for  L*1 ,2, . . .II 
Form  product: 

PM (MORD ( 1 ) )  *  HM (MORD ( 2 ) )  *  CPRME (MORD ( 3 ) ) 
and  add  to  accumulator  S 

STEP  3 -  Update  and  Test  MINDX 

a)  Initialize  index  T=0 

b)  Increment  T=T+1.  If  T>II  algorithm  complete  with 
HM ( I )  in  S.  Otherwise  go  to  Step  3c. 

c)  Increment  MINDX (T) =MINDX (T) +1 .  If  MINDX (T) <3,  go  to 
Step  2.  Otherwise  go  to  3d. 

d)  Set  MINDX (T)=l  and  go  to  Step  3b. 

The  final  computation  for  the  HM  nonlinearity  is  to  divide 
each  HM  (I)  ,  1  =  1,2, ...7  by  I!  which  is  accumulated  in  P: 

HM ( I )  =  HM(I)/P 

The  calculation  of  coefficients  for  the  ALPHA  nonlinearity 
begins  with: 

ALOGE  =  .4342944819 
RATIO  =  ALG10 (IC/ICKAX) 

AA ( 1 )  =  1.  +  HFEMX  +  A  *  RATIO  *  (PATIO+2 . *ALOGE) 
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By  definition  the  first  order  coefficient  ALPHA  (1)  is  given 
ALPHA (1)  =  1 • /AA ( 1 ) 

For  higher  order  coefficients,  each  ALPHA (I ) ,  1=2,3,.. 

calculated  according  to  the  expression? 


ALPHA(I) 


AA(1) 


where  F^_1(AA)  ,  a  sum  of  products  of  AA's,  is  the  polynomial  power 
series  expansion  coefficient  generated  by  subroutine  FUN. 

Each  AA(I),  1=2, 3, ...7  is  calculated  according  to  the 


RATIO  +  Q  *  RATIO) 


where 


Each  (AA)  is  computed  by  repeated  calls  to  subroutine 

FUN  under  control  of  the  variable  SWTCH.  For  SWTCH=-1  the 


algorithm  of  subroutine  FUN  is  initialized  and  each  call  returns 


a  set  of  integers  in  the  vector  FIJ  which  determines  the 


subscripts  of  the  AA's  to  be  multiplied  together  to  form  one 


J 

additive  terir  of  the  expression  PI_i  (AA)  .  Upon  return  from 
subroutine  FUN,  if  SWTCH=0  additional  terms  of  the  expression 
remain  to  be  calculated  and  FUN  is  called  again.  When  the 
expression  is  complete,  SWTCH  is  returned  as  1. 

The  algorithm  used  in  subroutine  CPT  for  calculating  the  sum 

1-1  j 

Z  ALPHA  (J)  FI_1  (AA) 

J=1 

can  be  summarized  as  follows- 


STEP  1-  Initialization 


a)  Define  11*1-1 

b)  Initialize  summation  S=C. 

c)  Initialize  index  J=1 

STEP  2-  Calculate  F^  (AA) 

a)  Initialize  SWTCH=-1  and  summation  SS=0. 

b)  Call  subroutine  FUN  to  generate  subscripts  FIJ (L) , 
L=1,2,...J  for  one  additive  term  of  the  expression 

c)  Form  the  product- 


J 

A P®  IT  AA  (FI J  ( L)  ) 

I;— 1 
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and  add  to  summation  SS. 


d)  If  SWTCF=0 ,  go  to  2b.  Otherwise  expression  is  complete 
and  stored  in  SS:  go  to  Step  3. 


Step  3:  Add  New  Term,  Update  and  Test  J 


a)  Form  the  product  ALPHA (J)*SS  and  add  to  summation  S. 

b)  Increment  J=J+1.  If  J.LE.(I-l)  go  to  Step  2.  Otherwise 
algorithm  complete  with  summation  in  S. 

ALPHA  (I)  is  then  completed  by  multiplying  the  summation  S  by 
-l/AAU)1  .  The  final  computation  for  the  ALPHA  nonlinearity  is 
to  multiply  each  ALPHA  ( I ) ,  1  =  1, 2,... 7  by  HFENX1  which  is 
accumulated  in  0 • 

ALPHA ( I )  =  ALPHA  (I)  *  C 


NAMEr  CPVT 


TYPE-  SUBROUTINE 


GENERAL  PURPOSE- 

Calculates  nonlinear  coefficients  for  vacuum  triode 


VARIABLES- 

A  =  Preliminary  calculation 

G  =  Calculated  parameter 

UP  =  Calculated  parameter 

GO  =  Input  value 

H  *  Nonlinear  coefficients 

MU  =  Input  value 

PHI  =  Input  value 

VGO  =  Input  value 

VGT  =  Input  value 

VPO  =  Input  value 


SUBROUTINES  CALLED- 
NONE 

CALLING  PROGRAMS- 
PHASE1 
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DESCRIPTION: 

Subroutine  CPVT  calculates  the  device  parameters  for  the 
vacuum  triode.  These  parameters  include  the  coefficients  H  for 
•the  vacuum  triode 's  nonlinearity  and  the  parameters  G  and  GP 
which  are  used  in  the  admittance  submatrix  and  current  vector 
subroutines . 

The  parameters  are  derived  from  the  input  values  stored  in 
the  first  nine  words,  of  the  vacuum  triode  data-record  which  is 
transmitted  to  subroutine  CPVT  in  the  common  data  buffer.  The 
calculated,  device  parameters  are  stored  in  the  data  record  which 
is  returned  to  subroutine  PHASE1  and  rewritten  to  file  20  for  use 
by  subsequent  NCAP  phases. 

The  parameters  G  and  GP  are  given  by 

G  =  GC  *  ( 1 . -VCO/VGT) 

GP  =  -GO/VGT 

The  preliminary  calculation  of  A  is  performed  to  simplify 
the  arithmetic: 

A  =  VGO  +  (VPO/MU)  +  PHI 

Then  by  definition  the  linear  coefficient  H ( 1 )  is  given  by: 

H ( 1 )  -  SQRT (A**3) 
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Higher  order  coefficients  are  calculated  recursively  according 
to  t 

H ( 1+1 )  -  (2.5-1)  *  H (I)/ ( I * A ) 
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NAMEr  DERIDS 


TYPE-  SUBROUTINE 


GENERAL  PURPOSE- 

Analytically  generates  nonlinear  coefficients  for  junction 
field  effect  transistor 


VARIABLES- 

A 

COEFR  = 
DZ 

EXPR 

F 

FACT 

IDMAX  = 
IDS 
IS  EQ 
KS 
NO 
PROD 
0 


Nonlinear  coefficients 
Intermediate  calculation 
Intermediate  calculation 
Intermediate  calculation 
d  (IDS)  /d  (X) 

Accumulator  for  factorial 
Input  value 
Value  of  function  IDS 
Subscript  array 
Intermediate  calculation 
Order  of  derivative 

Multiplicative  accumulator  for  derivative 
Intermediate  storage  for  input  values 


R 

RHO 

RATIO 

SEQ 

SUM 


=  d (X ) /d (VGSI ) 

=  Input  value 

=  Intermediate  calculation 
*  Subscript  array 

=  Additive  accumulator  for  derivative 
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VBI 

= 

Input  value 

VGSI 

= 

Input  value 

VP 

S 

Input  value 

X 

= 

Intermediate  calculation 

SUBROUTINES 

CALLED* 

NONE 


CALLING  PROGRAMS* 
CPMTJF 


DESCRIPTION* 

Subroutine  DERIDS  analytically  generates  the  nonlinear 
coefficients  A  for  the  junction  field  effect  transistor. 
Arguments  transmitted  to  the  subroutine  are  the  JFET  input  values 
0.  The  calculated  coefficients  are  returned  to  the  calling 
program  in  A. 

The  nonlinear  coefficients  A  (N)  ,  N  =  1,6  are  defined  as: 


A  (N) 


dN(IDS) 
d (VGSI ) 


and  are  calculated  by  repeatedly  dif f erentiating  the  function  IDS 
with  respect  to  VGSI,  where: 


IDS  =  3* IDMAX*RHO 


~R^°  +  i.j^RHO2  +  4(i  -  RATIO  +  -|(RATIO)  3^2) 


1/2 
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RATIO 


VGSI  +  VBI 
VP  +  VBI 


First  the  function  is  simplified  according  to- 

X  =  1./3.  -  RATIO  +  2./3.  *  (RATIO  **  1.5) 

X  =  (X  *  4.)  +  (RHO  *  RHO) 

KS  =.3./2.  *  I DM AX  *  RHO 

IDS  =  (3.  *  IDMAX  *  RHO  *  RHO/2 . )  +  (KS  *  X  **  .5) 

Then  the  first  seven  derivatives  of  the  function  X  with 
respect  to  VGSI  are  calculated  and  stored  in  R.  The  first 
derivative  is  calculated  directly  according  to- 

DZ  =  l./(VP  +  VBI) 

COEFR  =  DZ  *  4. 

EXPR  =  .5 

R  (1 )  =  COEFR  *  (-1.  +  RATIO  **  EXPR) 

Higher  order  derivatives  R(I),  I  =  2,7  are  calculated  according 


COEFR  =  COEFR  *  EXPR  *  DZ 
EXPR  =  EXPR  -  1. 

R ( I )  =  COEFR  *  RATIO  **  EXPR 

Next  the  first  seven  derivatives  of  IDS  with  respect  to  X 
are  evaluated  and  stored  in  F.  First: 

N  -  .  5 

F ( 1 )  =  KS  *  X  **  N 

The  derivatives  F(I),  I  =  2,8  are  calculated  recursively  as* 

F ( I )  =  (N  -  (1-1)  +  1.)  *  l./X  *  F(I-l) 

Finally  the  derivatives  of  IDS  with  respect  to  VGSI  are 
evaluated  and  stored  in  A.  The  first  derivative  is  given  byr 

A  (1 )  =  F  (2 )  *  R  (1 ) 

Each  higher  order  derivative  A(I),  I  =  2,6  is  calculated  by 

differentiating  the  previous  A(I-l).  The  algorithm  used  to 
compute  A (I)  is  derived  from  the  rule  of  elementary  calculus 
which  defines  the  nth  derivative  of  a  product  of  functions  to  be 
a  sum  of  products  of  derivatives  of  those  functions.  In 
particular,  the  second  order  derivative  A (2)  is  a  sum  of  products 
formulated  as  follows: 
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*  * 


A  (2)  =  [F  (3)  *  R  (1 )  *  R  (1 )  ]  +  [F  (2)  *  R<2)] 


where  F(3)  *  R(l)  is  the  derivative  of  F(2)  and  R{2)  is  the 
derivative  of  R(l).  Note  that  each  additive  term  is  the  product 
of  one  F  and  one  or  more  R's,  and  can  therefore  be  differentiated 
according  to  the  sum  of  products  rule. 

In  subroutine  DERIDS  the  subscripts  of  the  F's  and  R's  which 
constitute  a  derivative  pf  IDS  are  developed  in  the  integer  array 
ISEQ ,  where  each  row  of  the  ISEQ  array  contains  the  subscripts 
for  one  additive  term  of  the  derivative.  The  derivatives  can 
then  be  represented  by: 

K1  f  NO  1 

A (NO-1)  =  Z  F ( I S  EQ ( 1 , J ) )  *  n  R (ISEQ (I , J) )  j 

J=1  1=1  ! 

_  J 

Note  that  the  first  row  element  of  ISEQ  maps  to  the  subscript  of 
F,  while  the  remaining  NO-1  elements  map  to  the  subscripts  of  R. 

The  elements  of  the  ISEQ  array  are  developed  recursively. 
Once  a  derivative  has  been  calculated,  its  ISEQ  subscript  array 
is  saved  in  the  array  SEQ  which  serves  as  the  tfasis  for 
calculating  the  ISEQ  subscript  array  for  the  next  derivative. 

The  algorithm  used  by  subroutine  DERIDS  for  calculating  the 
nonlinear  coefficients  A  can  be  summarized  as  follows: 

STEPl^ _ Initial  izatj.  on 

a)  Zero  subscript  arrays  ISEQ  and  SEQ 

b)  Set  first  subscript  vector*  SE0(1,1)=1 
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c)  Initialize  FACTorial  product:  FACT»1 . 

d)  Initialize  order  of  derivative:  N0*2 

e)  Initialize  SEQ  row  index*  K«1 

f)  Initialize  ISEQ  row  index*  Kl*l 

STEP  2*  Create  First  Additive  Term 

a)  Initialize  column  index*  MINDX®1 

b)  Calculate  first  two  row  elements: 

ISEQ (1 ,K1)  »  S  EQ  ( 1 ,  K )  +  1 
ISEQ (2 , Kl )  =  1 

c)  If  SEQ (L , K)  =  0  for  some  L=2,  NO,  term  complete. 
Go  to  Step  3. 

d)  Otherwise,  calculate  next  row  element: 

ISEQ (L+l ,Kl)  =  SEQ (L,K) 

STEP  3:  Calculate  Next  Additive  Term 

a)  Increment  column  indes*  MINDX=MINDX+1 

b)  Increment  ISEQ  row  index:  K1=K1  +  1 

c)  If  SEQ{MINDX,K)  =  0,  term  complete. 

Go  to  Step  4. 

d)  Otherwise  calculate  next  row  by: 

ISEQ (L , Kl )  =  SEQ(L,K)  for  L*l,NO 
ISEQ (MINDX , Kl )  =  ISEQ (MINDX , Kl )  +  1 

e)  Go  to  Step  3a. 
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STEP  4:  Test  for  Subscript  Array  Complete 

a)  Increment  SEC  row  index-  K=K+1 

b)  If  S EC ( 1 , K )  =  0,  array  complete. 

Go  to  Step  5. 

c)  Otherwise  go  to  Step  2. 

STEP_5^ _ Form  Coefficient  Expression 

a)  Clear  additive  accumulator:  SUM=0. 

b)  Initialize  row  index  J=1 

c)  Initialize  multiplicative  accumulator: 

PROD  =  F(ISE0(1,J) ) 

d)  Form  product: 

PROD  =  PROD  *  R (ISEQ (I , J) )  for  1=2,  NO 

e)  Accumulate  sum  of  products* 

SUM  =  SUM  +  PROD 

f)  Increment  and  test  J.  If  J.GT.  Kl.  e 
expression  complete.  Go  to  Step  5g. 
Otherwise  go  to  Step  5c. 


g)  Calculate  factorial:  FACT=FACT  *  (NO-1) 

h)  Store  coefficient*  A (NO-1)  =  SUM/FACT 


a)  Increment  NO  *  NO  +  1 .  If  NO=7 , 
algorithm  complete. 


b)  Otherwise  save  subscript  array  in  SEQ. 

c)  Go  to  Step  le. 


MAME :  FIDS 


TYPE-  SUBPOUTINE 


GENERAL  PURPOSE- 

Evaluates  the  function  IDS  for  use  in  calculating  coef- 
fients  for  the  junction  field  effect  transistor 


VARIABLES- 

A 

P 


IDMAX  = 
0 

PHO 

S 


VBI 

VP 

X 


Y 


Intermediate  calculation 
Intermediate  calculation 
Intermediate  storage  for  C(l) 
JFET  input  values 
Intermediate  storage  for  C(2) 
Calculated  function  values 
Intermediate  storage  for  0(4) 
Intermediate  storage  for  0(5) 
Operating  point  x-direction 
Operating  point  y-direction 


SUBROUTINES  CALLED  - 
NONE 


CALLING  PROGRAMS- 
CPMTJF  DFPN 
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DESCRIPTION: 

Subroutine  FIDS  evaluates  the  function  IDS  for  use  by  the 
junction  field  effect  transistor  model.  Arguments  transmitted  to 
the  subroutine  are:  X  and  Y,  the  operating  points,  and  0,  the 
transistor  input  values.  Since  IDS  is  a  function  of  one 
variable,  the  second  operating  point  is  transmitted  as  Y=0.  The 
calculated  function  IDS(X,Y)  is  returned  to  the  calling  program 
in  S . 

First  the  input  values  are  stored  as  IDMAX=Q (1 ) ,RHO=Q (2) , 
VP=0(3),  and  VBI=Q(4).  Next  the  expression  for  IDS  is  simplified 
by: 

A  =  RHO 


B  =  X  +  VBI 
VP  +  VBI 


Then  IDS(X)  is  calculated  according  to 


IDS  *  3 


*  A  *  IDMAX  *  i  -  B  +  1(B)  2  + 


<► 


3-41C 


_ 1 

1  » 
!  MPQ 
!  LOU 

n 

ANU 

non 

!  AS 

s 

_ 

1 

- - — — 

,  » 

NAME:  INLOC 


TYPE :  FUNCTION 

GENERAL  PURPOSE: 

Finds  relative  location  in  generator  data  record  of  impedance 
value  for  a  given  frequency  combination 

VAPIAPLFS: 

I  .=  Intermediate  storage  of  impedance  location 

IMTPL  =  Impedance  codes 

NIMPS  =  Number  of  defined  impedance  codes 

SCODE  =  Frequency  combination  code 

SUBROUTINES  CALLED r 
NONE 

CALLING  PPOCRAMS- 
PHASE2 

DESCRIPTION* 

Function  IVLOC  determines  the  location  of  a  generator's 
impedance  (relative  to  the  first  impedance  in  the  generator  data 
record)  for  a  particular  frecruency  combination.  Arguments 
transmitted  to  the  function  are:  the  frequency  combination  code, 
SCOPE;  a  table  of  all  frecruency  combination  codes  for  which 
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impedances  are  stored  in  the  generator  data  record,  IMTEL;  and 
the  number  of  impedances  in  the  data  record,  NIMPS.  The 
impedance  location  is  returned  to  the  calling  program  in  IMLOC. 

Every  NCAP  generator  has  either  a  constant  impedance  over 
all  frequencies  or  one  impedance  for  each  possible  combination  of 
its  input  frequencies.  The  impedances  are  converted  to 
admittances  in  Phase  and  stored  with  their  corresponding 
frequency  combination  codes  in  the  generator  data  record  so  that 
the  Ith  admittance  in  the  record  corresponds  to  the  Ith  frequency 
combination  code  in  IMTBL. 

For  a  generator  with  a  constant  impedance  (NIMPS=1) ,  the 
impedance  location  is  simply  IVL0C=1.  Otherwise  the  location  is 
determined  by  comparino  SCODE  to  each  frequency  combination  code 
ItfTEL(I)  for  1=1,  Niyps.  If  a  match  is  found,  the  table  position 
I  becomes  the  location  returned  in  IMLOC.  If  no  match  is  found, 
the  location  returned  is  IN'LOC=0. 


NAME*  MTPT 


TYPE-  SUP ROUTINE 


CENERAL  PURPOSE 


Create  submatrix  for  vacuum  pentode 


Input  value 


Input  value 


Nonlinear  coefficients 


Preliminary  calculation 


Preliminary  calculation 


Nonlinear  coefficients 


Input  value 


Submatr ix 


SUPROUTINES  CALLED 


NONE 


CALLING  PROGRAM? : 

PHASE1 

DESCRIPTION: 

Subroutine  MTPT  calculates  the  complex  admittances  for  the 
four-node  vacuum  pentode  and  stores  them  by  columns  in  the 
submatrix  PE(32).  The  submatrix  elements  are  derived  from  the 
input  data  and  device  parameters  stored  in  the  pentode  data 
record  which  is  transmitted  to  subroutine  MTPT  through  the  common 
data  buffer.  The  admittance  submatrix  is  stored  in  the  last  32 
words  of  the  data  record  which  is  returned  to  subroutine  PHASEl 
and  rewritten  to  file  20  for  use  for  subsequent  NCAP  phases. 

First  the  intermediate  calculations  for  GXl,  GX2,  GYl,  and 
GY2  are  performed.  The  submatrix  storage  area  is  zeroed  and  the 
admittances  are  defined  as  follows: 
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NAME  r  MTT 


TYPE-  SUBROUTINE 

GENERAL  PURPOSE: 

Creates  submatrix  for  bipolar  junction  transistor 

VARIABLES: 


ALPHI 

= 

1st  order  ALPHA  coefficient 

Cl 

= 

Input  value 

C2 

- 

1st  order  HC2  coefficient 

C3 

= 

Input  value 

CANl 

= 

1st  order  GAMMA  coefficient 

HMO 

= 

Calculated  parameter 

hmi 

= 

1st  order  HM  coefficient 

ICHMC 

= 

Calculated  parameter 

Kl 

= 

1st  order  KS  coefficient 

Ml 

= 

Preliminary  calculation 

PE 

= 

Submatr ix 

PEZ 

s 

Zero  submatrix 

PPI 

= 

Input  value 

PCI 

s 

Input  value 

SUBROUTINES  CALLED: 
NONE 


CALLING  PROGRAMS : 


PHASE  1 

DESCRIPTION: 

Subroutine  MTT  calculates  the  complex  admittances  for  the 
four-node  bipolar  junction  transistor  and  stores  them  in  the 
complex  submatrix  PE(2,4,4).  The  submatrix  elements  are  derived 
from  the  input  values  and  device  parameters  stored  in  the 
transistor  data  record  which  is  transmitted  to  subroutine  MTT 
through  the  common  data  buffer.  The  admittance  submatrix  is 
stored  in  the  last  32  words  of  the  data  record  which  is  returned 
to  subroutine  PHASE1  and  rewritten  to  file  23  for  use  by 
subsequent  NCAP  phases. 

First  the  intermediate  parameter  Ml  is  calculated  and  the 
submatrix  storage  area  is  zeroed.  The  admittance  submatrix 
elements  are  defined  as  follows- 


NAME:  MTVT 


* .  » 


TYPE-  SUBROUTINE 


GENERAL  PURPOSE- 

Creates  submatrix  for  vacuum  triode 


VARIAPLES • 
CGC 
CPC 
CPC 
C 

CP 

CX 

CY 


F 

MU 

P 


Input  value 
Input  value 
Input  value 
Calculated  parameter 
Calculated  parameter 
Preliminary  calculation 
Preliminary  calculation 
Nonlinear  coefficients 
Input  value 
Submatr ix 


SUBROUTINES  CALLED- 
NONE 


CALLING  PROGRAMS: 
PHASEl 
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DESCRIPTION- 


Subroutine  MTVT  calculates  the  complex  admittances  for  the 
three-node  vacuum  triode  and  stores  them  by  columns  in  the 
submatrix  P(18).  The  submatrix  elements  are  derived  from  the 
input  values  and  device  parameters  stored  in  the  vacuum  triode 
data  record  which  is  transmitted  to  subroutine  MTVT  through  the 
common  data  buffer.  The  admittance  submatrix  is  stored  in  the 
last  18  words  of  the  data  record  which  is  returned  to  subroutine 
PHASFl  and  rewritten  to  file  20  for  use  by  subsequent  NCAP 
phases . 

First  the  intermediate  parameters  GX  and  GY  are  calculated 
and  the  submatrix  storage  area  is  zeroed.  The  submatrix  elements 
are  defined  as  follows: 


Peal 

Imag 

Peal 

Imag 

Peal 

Imag 

P(l)  = 

0 

P  ( 2)  = 

CGC+CPG 

P  (7 )  = 

0 

P  (8)  = 

-CPG 

P (1 3) = 

0. 

P  ( 14 )  = 

-CGC 

P  (3)  = 

GX 

P(4)  = 

-CPG 

P(9)  = 

GY 

P(10)  = 

CPG+CPC 

P (15) = 

-GX- GY 

P (16) = 

-CPC 

P(5)  = 

-GX 

P(6)  = 

-CGC 

P(ll)  = 

GY 

P  ( 1 2)  = 

-CPC 

P (17) = 

-GX-GY 

P (18) = 

CGC+CPC 

4  % 

«  * 
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PHASE2 


MTLDS 

MTNDS 

ZIADD 


X 


HM| 


SUPPOUTINES  CALLED- 

DATARD  DATAWP  DPIVRD  DRIVER  IMLOC 

MTLDS  VTNDS  PHASE3  PTIKE  SSCOD2 

TirOUT  ZIADD 

CALLING  PRCCPA.MS- 
PFASE1 

DFSCRIPTICN: 

Subroutine  PHASE  2  is  the  principal  routine  of  NCAP's  second 
corputat ional  phase.  Its  function  is  to  construct  and  store  the 
admittance  matrices  used  in  the  circuit  analysis.  Decause 
admittances  are  dependent  upon  frequency,  one  admittance  matrix 
is  constructed  for  each  possible  combination  of  the  circuit's 
input  freouencies. 

An  admittance  matrix  is  a  souare  array  of  complex  numbers. 
The  order  (dimension)  of  an  admittance  matrix  is  determined  by 
the  number  of  nodes  in  the  circuit.  Each  complex  matrix  element 
occupies  two  decimal  storage  locations,  one  for  its  real  part  and 
one  for  its  imaginary  part.  The  matrices  are  stored  by  columns 
on  disk  file  2C..  Fvery  complex  element  of  an  admittance  matrix 
is  individually  addressable.  Successive  admittance  matrices  are 
stored  contiguously,  in  the  order  they  are  created,  as  one  data 
record  associated  with  the  START  CIRCUIT  (M0DE=13)  driver  record. 

The  construction  of  admittance  matrices  in  subroutine  PHASE2 
is  controlled  by  scanning  the  driver  file  (2NF-1)  times,  once  for 
each  possible  combination  of  the  KF  input  frequencies.  The  START 
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CIRCUIT  driver  record  initiates  the  construction  of  the 
admittance  matrix.  During  its  construction  in  PHASE2  the  matrix 
remains  disk-resident.  Whenever  an  admittance  is  to  be  placed  in 
the  matrix,  the  appropriate  element  is  read  from  file  20, 
updated,  and  rewritten  to  its  original  location. 

As  the  driver  file  scan  proceeds,  the  admittances'  from 
circuit  elements  are  placed  in  the  matrix  as  their  driver  records 
are  encountered.  The  END  CIRCUIT  driver  record  (M0DE=14) 
terminates  the  matrix  construction  for  a  particular  frequency 
combination  and  restarts  the  driver  file  scan  for  the  next 
combination . 

The  first  driver  file  scan  begins  by  initializing  the  driver 
file  record  number  to  DRVREC=1.  A  driver  record  is  read  from 
file  21  by  subroutine  DFIVRD  and  subroutine  PHASE2  responds  to 
the  MODE  of  the  record  as  follows: 

M0DE=1  Driver  File  Header 

The  next  available  file  20  data  storage  location  is  set  to 
DATREOMISC  (1)  and  the  total  number  of  input  frequencies  for  the 
circuit  is  taken  as  NF*MISC{2).  The  number  of  possible  frequency 
combinations  is  calculated  according  to 
NNF=2**NF-1 

The  20-word  frequency  table  is  read  from  file  20  by  subroutine 
DATARD  to  the  common  data  buffer  BUFF.  The  frequency  values  are 
transferred  from  BUFF (1) — (10)  to  the  decimal  vector  FREQ  and  the 
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frequency  numbers  are  transferred  from  BUFF (11) - (20)  to  the 
integer  vector  FRTBL .  Control  then  returns  to  the  driver  file 
scan . 

M0DE=1 3  Start  Circuit 


The  order  of  the  admittance  matrix  is  defined  by  ORDER* 
MISC  (4 )  and  the  sequential  frequency  combination  is  initialized 
to  SC0MB*1.  The  disk  address  of  the  first  admittance  matrix  is 
taken  as  LOCPE=DATREC  and  the  length  of  each  admittance  matrix 
(in  words)  is  calculated  according  to: 

LPE=0RDER*0RDER*2 

The  admittance  matrix  storage  area  is  cleared,  one  element  at  a 
time,  by  writing  the  complex  number  D=(0.,  0.)  to  the  LPE/2 
successive  file  20  locations  beginning  at  DATREC.  The  frequency 
combination  code,  SCODE,  and  angular  frequency,  S,  are  calculated 
by  subroutine  SSC0D2  and  control  returns  to  the  driver  file  scan. 


M0DE*3  Generator 


The  generator's  impedance  combination  codes  are  read  from 
file  20  by  subroutine  DATARD  and  transferred  from  the  common  data 
buffer  PUFF  to  the  integer  vector  IMTBG .  The  function  IMLOC 


calculates  the  location  of  the  admittance  value  corresponding  to 
the  frequency  combination  SCODE  in  the  generator  data  record.  If 
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function  IMLOC  returns  an  admittance  location  I.LE.0,  there  is  no 
admittance  for  the  present  frequency  combination,  and  control 
returns  to  the  driver  file  scan  without  further  processing. 

Otherwise  the  disk  address  of  the  admittance  is  calculated 
and  subroutine  DATARD  reads  the  complex  admittance  value  from 
file  20  to  the  common  data  buffer  BUFF.  Subroutine  ZIADD  is 
called  to  place  the  generator's  admittance  in  the  matrix  and 
control  returns  to  the  driver  file  scan. 


M0DE*4  Linear  Components 
M0DE*5  Nonlinear  Components 

The  number  of  words  in  each  component  description  is  defined 
as  14*4  for  linear  components  or  14*13  for  nonlinear  components. 
The  component  data  record  is  read  from  file  20  by  subroutine 
DATARD  to  the  common  data  buffer  BUFF  and  the  length  of  the  data 
record  is  set  by  NCOMP*MISC (1) . 

For  each  component  (1*1,  NCOMP,  14)  in  the  data  record,  the 
component  type  M  is  taken  from  the  first  word  of  its  14-word 
description,  the  nodes  of  connection  K  and  L  are  taken  from  the 
second  and  third  words,  and  the  component  value  AA  is  taken  from 
the  fourth  word.  The  component's  admittance,  a  function  of  the 
input  value  and  angular  frequency  S,  is  calculated  and  stored  in 
D  according  (tor 
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Resistor  (M*l): 

D(l)«l./(AA+l.E-7) 

D (2) *0 . 

Capacitor  (M=2)  : 

D (1 ) *0 . 

D (2) =S*AA 

Inductor  (M»3) : 

D (1 ) *0  . 

D(2)*-l./(S*AA+l.E-7) 

where  the  factor  l.E-7  prevents  division  by  zero.  2 I ADD  is  then 
called  to  place  the  admittance  in  the  matrix.  After  every 
component  in  the  data  record  has  been  processed,  control  returns 
to  the  driver  file  scan. 


M0DE*6  Vacuum  Diode 
MODE»10  Semiconductor  Diode 

The  relative  location  of  the  device  admittance  within  the 
data  record  is  set  by  N«13  for  the  vacuum  diode  or  N*30  for  the 
semiconductor  diode.  The  admittance  is  read  from  file  20  by 
subroutine  DATARD  and  stored  in  the  common  data  buffer  BUFF. 
After  the  imaginary  part  of  the  admittance,  BUFF(2) ,  is 
multiplied  by  the  angular  frequency  S,  subroutine  ZIADD  is  called 


to  place  the  admittance  in  the  matrix.  Control  then  returns  to 
the  driver  file  scan. 

M0DE»7  Vacuum  Triode 
M0DE*8  Vacuum  Pentode 
M0DE=9  Bipolar  Junction  Transistor 
MODEg20  Junction  Field  Effect  Transistor 

The  device  submatrix  is  read  from  file  20  by  subroutine 
DATARD  and  s-tored  by  columns  in  the  common  data  buffer  BUFF.  The 
submatrix  is  the  nodal  representation  of  the  device's  linear 
parts.  For  a  device  with  N  nodes,  the  submatrix  is  an  NxN  square 
array  of  complex  elements.  The  admittance  matrix  is  the  nodal 
representation  of  the  circuit's  linear  parts,  where  successive 
nodes  are  represented  by  rows  and  columns  of  like  number.  The 
nodes  of  the  device  model  are  numbered  sequentially,  beginning 
with  the  user-assigned  base  node  MISC(3),  and  are  represented  in 
the  admittance  matrix  by  the  NxN  square  subset  of  elements 
bounded  by  the  MISC(3)rd  row  and  column. 

The  device's  admittances  are  placed  in  the  matrix  by  adding 
the  submatrix  to  the  admittance  matrix  as  follows’  The  first 
column  of  the  submatrix  is  added  to  the  MISC(3)rd  column  of  the 
admittance  matrix  beginning  at  (MISC(3),  MISC(3)).  Then  the 

second  column  of  the  submatrix  is  added  to  the  (MISC (3) +1) st 
column  of  the  admittance  matrix  beginning  with  (MISC(3),  MISC(.3) 
•+1) ,  and  so  on  until  the  Nth  column  of  the  submatrix  has  been 
added  to  the  (MISC  (3) +N-1) st  column  of  the  admittance  matrix. 
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The  appropriate  matrix  elements  are  accessed  by  calculating 
their  relative  locations  with  respect  to  the  origin  of  the 
admittance  matrix.  Matrix  elements  are  complex  numbers  which 
occupy  two  storage  locations  each,  and  are  stored  and  operated 
upon  by  columns.  The  locations  of  the  NxN  matrix  elements 
bounded  by  the  MlSC(3)rd  row  and  column  are  represented  by  PHASE2 
variables  as  follows: 


MISC  (3) 

r  -  -  ■ 

MISC (3) +1 

•  •  • 

MISC  ( 3 ) +N-1 

MISC  (3) 

11 

11+13 

•  •  • 

12 

MISC (3 ) +1 

11+2 

• 

I1+I3+2 

• 

•  »  • 

12+2 

• 

• 

MISC ( 3 ) +N-1 

• 

• 

11+14 

• 

• 

I2+I3+I4 

•  •  • 

• 

• 

12+14 

where : 

I4=2*N-1 
I 3=2*ORDER 

11= (MISC (3) -1) * (ORDER+1) *2+1 
I 2=Il+ORDER* (14-1) 

N=Order  of  submatrix 
ORDER=Order  of  admittance  matrix 
MISC(3)=Base  node  of  connection 


In  the  PHASE2  code,  the  index  I  addresses  the  column  origins 


and  ranges  from  II  to  12  in  increments  of  13.  Within  a  column, 
the  index  J  addresses  successive  row  elements  and  ranges  from  I 
I+I4  in  increments  of  2.  The  index  K  addresses  the  submatrix 
elements  stored  by  columns  in  the  data  buffer  BUFF.  The 
algorithm  for  adding  a  device  submatrix  to  the  admittance  matrix 
is  summarizes  as  follows: 

, '  « 

STEP  1 :  Initial! zation 


a)  Define  14,  a  constant  depending  on  the  number  of 
nodes  in  the  device  model  as  follows: 


MODE 

DEVICE 

NO.  NODES 

14 

7 

Tr iode 

3 

5 

8 

Pentode 

4 

7 

9 

Transistor 

4 

7 

20 

JFET 

4 

7 

b)  Initialize  submatrix  index  K=  -1 

c)  Calculate  II,  12,  and  13  for  admittance  matrix  column 
origins 

d)  Initialize  column  origin  1=11 

STEP  2:  Operate  on  Ith  Column 

a)  Set  end  of  Ith  column  J2=I+I4. 

Initialize  row  address  J=I 
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b)  Increment  submatrix  index  K*K+2 
/V?)  Calculate  absolute  address  of  matrix  element 

L=DATREC-1+J .  Read  element  from  file  20  to  D  and 
add  submatrix  element  by: 

D (1 ) =D (1) +BUFF  (K) 

D (2) =D (2) +BUFF (K+l) *S 
Write  updated  matrix  element  to  file  20. 
d)  Increment  row  address  J=J+2.  If  J.LE.J2,  go  to  Step  2b. 
Otherwise  go  to  Step  3. 


STEP  3:  Increment  &  Test  Column  Origin 


a)  Increment  column  origin  1=1+13 

b)  If  I.LE.I2,  go  to  Step  2.  Otherwise  algorithm 
complete,  return  to  driver  file  scan. 


MODE=25  Linear  Dependent  Source 
MODE=26  No nl i near  Dependent  Source 

The  admittances  for  the  linear  and  nonlinear  dependent 
sources  are  calculated  and  placed  in  the  admittance  matrix  by 
subroutines  MTLDS  and  MTNDS  respectively.  Control  then  returns 
to  the  driver  file  scan. 
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M0DE=14  End  Circuit 

The  next  available  file  20  storage  location  is  calculated  by 
DATREC=DATREC+LPE  and  the  sequential  frequency  combination  SCOME 
is  incremented.  If  the  last  admittance  matrix  has  not  been 
constructed  (SCOMB. LE .NNF) ,  the  driver  file  record  number  is 
reset  for  the  next  driver  file  scan  by  DRVREC=MISC (1) +1 .  The 
admittance  matrix  storage  area  is  cleared,  .  the  frequency 
combination  code  and  angular  frequency  are  calculated  by 
subroutine  SSC0D2,  and  control  returns  to  the  driver  file  scan. 

If  the  last  admittance  matrix  has  been  constructed 
( SCOMB. GT. NNF ) ,  the  matrix  data  record  is  attached  to  the  start 
circuit  driver  record  as  follows:  The  present  driver  record 
number  is  saved  in  JRECS,  and  the  driver  record  number  is  reset 
to  the  start  circuit  by  DRVREC=MISC (1 ) .  The  start  circuit  driver 
record  is  read  from  file  21  by  subroutine  DRIVRD ,  and  after 
saving  the  matrix  data  location  in  MISC(5),  the  record  is 
rewritten  by  subroutine  DRIVWR.  The  driver  record  number  is 
restored  from  JRECS  and  control  returns  to  the  driver  file  scan. 


M0DEs16  End 


The  driver  file  header  is  read  by  subroutine  DRIVRD,  updated 
to  reflect  the  next  available  file  20  storage  location,  and 
rewritten  by  subroutine  DRIVWR.  Program  control  then  transfers 


to  subroutine  PHASE3 . 


For  other  values  of  MODE,  control  returns  directly  to  the 
driver  file  scan  without  further  processing  by  subroutine  PHASE2. 
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NAME:  MTLDS 


TYPE:  SUBROUTINE 

GENERAL  PURPOSE- 

Places  admittances  of  linear  dependent  source  in 
admittance  matrix 


VARIABLES :  , 

A  =  Positive  node  of  connection 

B  =  Negative  node  of  connection 

C  =  Value  of  parallel  capacitor 

CC  =  Intermediate  calculation 

Cl  =  Imaginary  part  of  complex  scale  factor 

CL  =  Intermediate  calculation 


CONST  =  Scale  factor 

CP  =  Peal  part  of  complex  scale  factor 
I  =  Relative  disk  address  of  matrix  element 

L  =  Value  of  parallel  inductor 

PE  =  Complex  admittance  matrix  element 

R  =  Value  of  parallel  resistor 

S  =  Angular  frequency 

SOURCE  =  Type  of  source;  1  *  VC 

2  =  CC 

3  *  VV 

4  =  CV 
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=  Intermediate  calculation 
=  Positive  node  of  dependence 
=  Negative  node  of  dependence 

SUBROUTINES  CALLED* 

CXADD  CXMPY  CXSUB  DATARD  DATAWR 
ZIADD 

CALLING  PROGRAMS: 

PHASE2 

DESCRIPTION: 

Subroutine  MTLDS  calculates  the  admittances  for  the  linear 
dependent  source  and  places  them  in  the  admittance  matrix.  The 
linear  dependent  source  data  record  is  read  from  file  20  by 
subroutine  DATARD  and  stored  in  the  common  data  buffer  BUFF.  The 
complex  admittance  is  initialized  to  X=(l.,l.)  and  the  scale 
factor  is  transferred  from  the  data  buffer  to  CONST. 

Then  for  current  dependent  sources  (S0URCE=2  or  4) ,  the 
admittance  at  the  nodes  of  dependence  is  derived  from  the  values 
of  the  parallel  components  R,  C,  and  L  as  follows* 

X ( 1 ) =1 . /R  for  R/0 

X(2)=(S*C)-(1./S*L)  for  L*0 

where  S  is  the  angular  frecruency  transmitted  to  subroutine  MTLDS 
as  an  argument.  The  admittance  at  the  nodes  of  dependence  (XX 
and  YY)  is  placed  in  the  admittance  matrix  by  subroutine  ZIADD. 
Subroutine  CXMPY  multiplies  the  scale  factor  by  the  admittance 


X 

* 

XX 

YY 
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and  the  result  is  stored  in  CONST. 


For  current  sources  (S0URCE=3  or  4) ,  the  admittance  at  the 
nodes  of  connection  (A  and  B)  is  defined  as  X=(1.0E10.,  0.)  and 
placed  in  the  admittance  matrix  by  subroutine  ZIADD.  Subroutine 
CXMPY  multiplies  the  scale  factor  by  the  admittance  and  the 
result  is  stored  in  CONST. 

Then  the  calculated  scale  factor  CONST  is  placed  in  the 
admittance  matrix  by  subtracting  it  from  the  matrix  elements 

(A, XX)  and  (P , YY)  and  adding  it  the  elements  (A , YY)  and  (B,XX) . 
If  neither  node  A  nor  XX  is  ground  (A*XX^0) ,  the  location  of  the 
element  (A, XX)  relative  to  the  origin  of  the  admittance  matrix  is 
calculated  by  the  function  LOCATE  according  to: 

1=  LOCATE (A , XX) =  2* ( (XX-1 ) *ORDER+A) -1 
where  ORDER  is  the  number  of  elements  in  each  column  of  the 
matrix  transmitted  to  subroutine  MTLDS  through  global  common. 

The  absolute  address  is  computed  by  I=DATREC-1+I  and  the  element 

is  read  from  file  20  by  subroutine  DATARD  and  stored  in  PE.  The 
complex  scale  factor  is  subtracted  from  PE  by  subroutine  CXSUB 
and  the  updated  matrix  element  is  rewritten  to  file  20  by 

subroutine  DATAWR. 

If  neither  node  A  nor  YY  is  ground  (A*YY^0) ,  the  location  of 
the  element  (A , YY)  relative  to  the  origin  of  the  admittance 
matrix  is  calculated  by  the  function  LOCATE  according  to: 

1=  LOCATE (A ,YY) =  2* ( (YY-1) *ORDER+A) -1 
The  absolute  address  is  computed  by  I=DATREC-1+I  and  the  element 
is  read  from  file  20  by  subroutine  DATARD  and  stored  in  PE.  The 
complex  scale  factor  is  added  to  PE  by  subroutine  CXADD  and  the 
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*  updated  matrix  element  is  rewritten  to  file  20  by  subroutine 
DATAWR . 

If  neither  node  B  nor  XX  is  ground  (B*XX^0),  the  location  of 
the  element  (B,XX)  relative  to  the  origin  of  the  admittance 
matrix  is  calculated  by  the  function  LOCATE  according  to; 

1=  LOCATE (B ,XX) =  2 *  (  (XX-1 ) *ORDER+B ) -1 
The  absolute  address  is  computed  by  I=DATREC-1+I  and  the  element 
is  read  from  file  20  by  subroutine  DATA  PD  and  stored  in  PE.  The 
complex  scale  factor  is  added  to  PE  by  subroutine  CXADD  and  the 
updated  matrix  element  is  rewritten  to  file  20  by  subroutine 
DATAWR . 

If  neither  node  E  nor  YY  is  ground  (3*YY/0) ,  the  location  of 
the  element  (B , YY)  relative  to  the  origin  of  the  admittance 
matrix  is  calculated  by  the  function  LOCATE  according  to: 

I*  LOCATE (E , YY) =  2*  ( (YY-1 ) *ORDEF+D ) -1 
The  absolute  address  is  computed  by  I=DATREC-1+I  and  the  element 
is  read  from  file  20  by  subroutine  DATARD  and  stored  in  PE.  The 
complex  scale  factor  is  subtracted  from  PE  by  subroutine  CXSUE 
and  the  updated  matrix  element  is  rewritten  to  file  20  by 
subroutine  DATAWR. 

After  the  admittances  have  been  properly  placed  in  the 
matrix,  subroutine  mtlDS  returns  to  the  calling  program. 
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NAME:  MTNDS 


TYPE:  SUBROUTINE 

GENERAL  PURPOSE- 

Places  admittances  of  nonlinear  dependent  source 
in  admittance  matrix.  Creates  table  of  admittances 
for  use  by  Subroutine  CURNDS 

VARIABLES  r 

A  =  Positive  node  of  connection 

E  =  Negative  node  of  connection 

C  =  Value  of  parallel  capacitor 

CC  =  Intermediate  calculation 
CL  =  Intermediate  calculation 

CONST  =  Complex  scale  factor 

I  =  Relative  disk  address  of  matrix  element 

IMPS  =  Admittance  table 
L  =  Value  of  parallel  inductor 

PE  =  Complex  admittance  matrix  element 

R  =  Value  of  parallel  resistor 

S  =  Angular  frequency 

SCODE  =  Frequency  combination  code 
SCOME  =  Sequential  frequency  combination 
SOURCE  =  Type  of  source-  1  =  VC,  2  =  CC,  3  =  VV, 
4  =  CV 
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X  =  Intermediate  calculation 

XX  =  Positive  node  of  dependence 

YY  =  Negative  node  of  dependence 

SUBROUTINES  CALLED: 

CXADD  CXMPY  CXSUE  DATARD  DATAWR 
ZIADD 

CALLINC  PROGRAMS- 
PHASE2 

DESCRIPTION- 

Subroutine  MTNDS  calculates  the  admittances  for  the 
nonlinear  dependent  source  and  places  them  in  the  admittance 
matrix.  The  nonlinear  dependent  source  data  record  is  read  from 
file  20  by  subroutine  DATARD  and  stored  in  the  common  data  buffer 
TUFF.  The  complex  admittance  is  initialized  to  X=(l.,l.)  and  the 
scale  factor  is  transferred  from  the  data  buffer  to  CONST. 

Then  for  current  dependent  sources  (SOURCE®  2  or  4) ,  the 
admittance  at  the  nodes  of  dependence  is  derived  from  the  values 
of  the  parallel  components  R,  C,  and  L  as  follows- 
X (1 ) =1 ./R  for  R*0 

X (2) = (S*C) - (1 ./S*L)  for  L*0 

where  S  is  the  angular  frequency  transmitted  to  subroutine  MTNDS 
as  an  argument.  The  complex  admittance  is  stored  in  the 
nonlinear  dependent  source  data  record  at  IMPS (1 , SCOMB)  and  IMPS 
( 2 , SCOMP )  where  SCOMB  is  the  sequential  frequency  combination 


transmitted  to  subroutine  MTNDS  as  an  argument. 

The  admittance  at  the  nodes  of  dependence  (XX  and  YY)  is 
placed  in  the  admittance  matrix  by  subroutine'  ZIADD.  Subroutine 
CXMPY  multiplies  the  scale  factor  by  the  admittance  and  the 

result  is  stored  in  CONST. 

For  current  sources  (SOURCE=  3  or  4) ,  the  admittance  at  the 
nodes  of  connection  (A  and  B)  is  defined  as  X=  (1 . 0E1P .  ,0  . )  and 
placed  in  the  admittance  matrix  by  subroutine  ZI'ADD.  Subroutine 
CXMPY  multiplies  the  scale  factor  by  the  admittance  and  the 

result  is  stored  in  CONST. 

Then  the  nonlinear  dependent  source  data  record  is  rewritten 
to  file  20  by  subroutine  DATAWR  and  the  scale  factor  is  placed  in 
the  admittance  matrix  by  subtracting  it  from  the  matrix  elements 
(A, XX)  and  (B ,  YY)  and  adding  it  to  the  elements  (A , YY)  and 

(B ,  XX)  . 

If  neither  node  A  nor  XX  is  ground  (A*XX/0) ,  the  location  of 
the  element  (A, XX)  relative  to  the  origin  of  the  admittance 
matrix  is  calculated  by  the  function  LOCATE  according  tor 
1=  LOCATE (A, XX) *  2* ( (XX-1) *ORDER+A) -1 
where  ORDER  is  the  number  of  elements  in  each  column  of  the 

matrix  transmitted  to  subroutine  MTNDS  through  global  common. 
The  absolute  address  is  computed  by  I=DATPEC-1+I  and  the  element 
is  read  from  file  20  by  subroutine  DATARD  and  stored  in  PE.  The 
complex  scale  factor  is  subtracted  from  PE  by  subroutine  CXSUF 
and  the  updated  matrix  element  is  rewritten  to  file  20  by 
subroutine  DATAWR. 

If  neither  node  A  nor  YY  is  ground  (A*YY/0) ,  the  location  of 
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the  element  (A , YY)  relative  to  the  origin  of  the  admittance 
matrix  is  calculated  by  the  function  LOCATE  according  to: 

1=  LOCATE (A,  YY) =  2*  (  (YY-1 ) *ORDER+A) -1 
The  absolute  address  is  computed  by  I=DATREC-1+I  and  the  element 
is  read  from  file  20  by  subroutine  DATARD  and  stored  in  PE.  The 
complex  scale  factor  is  added  to  PE  by  subroutine  CXADD  and  the 
updated  matrix  element  is  rewritten  to  file  20  by  subroutine 
DATAWR . 

If  neither  node  E  nor  XX  is  ground  (B*XX/0) ,  the  location  of 
the  element  (B,XX)  relative  to  the  origin  of  the  admittance 
matrix  is  calculated  by  the  function  LOCATE  according  to: 

1=  LOCATE (P ,  XX) =  2* ( (XX-1) *ORDER+E) -1 
The  absolute  address  is  computed  by  I=DATREC-1+I  and  the  element 
is  read  from  file  20  by  subroutine  DATARD  and  stored  in  PE.  The 
complex  scale  factor  is  added  to  PE  by  subroutine  CXADD  and  the 
updated  matrix  element  is  rewritten  to  file  20  by  subroutine 
DATAWR . 

If  neither  node  B  nor  YY  is  ground  (E*YY^0) ,  the  location  of 
the  element  (B , YY)  relative  to  the  origin  of  the  admittance 
matrix  is  calculated  by  the  function  LOCATE  according  to: 

1=  LOCATE (B , YY) =  2* ( ( YY-1 ) *ORDER+P ) -1 
The  absolute  address  is  computed  by  I=DATPEC-1+I  and  the  element 
is  read  from  file  20  by  subroutine  DATARD  and  stored  in  PE.  The 
complex  scale  factor  is  subtracted  from  PE  by  subroutine  CXSUB 
and  the  updated  matrix  element  is  rewritten  to  file  20  by 
subroutine  DATAWR. 

After  the  admittances  have  been  properly  placed  in  the 


NAME •  ZIADD 


TYPE*  SUBROUTINE 


GENERAL  PURPOSE 


Places  admittances  in  admittance  matrix 


VAR1APLES 


Complex  admittance 


Positive  node  of  connection 


Negative  node  of  connection 


Relative  address  of  PE(I,I)  on  disk  file  20 


Relative  address  of  PE(J,J)  on  disk  file  20 


Intermediate  storage  for  complex  matrix 


element 


SUBROUTINES  CALLED 


CXADD 


CATARD  DATAWR 


CALLING  PROGRAMS 


MTNDS  PEASE2 


MTLDS 


rFSCRIPTICN- 

Subroutine  ZIACD  places  the  complex  admittance  for  a  circuit 
element  in  the  admittance  matrix.  Arguments  transmitted  to  the 
subroutine  are  the  complex  admittance  A  and  the  numbers  of  the 
positive  and  negative  nodes  of  connection,  I  and  J.  No  arguments 
are  returned  to  the  calling  program. 

The  admittance  is  placed  in  the  matrix  by  adding  it  to  the 
matrix  elements  (1,1)  and  (J,J)  and  subtracting  it  from  the 
elements  (I,J)  and  (J,I).  If  the  positive  node  of  connection  is 
ground  (I  =  !?),  subroutine  ZIACD  returns  to  the  calling  program 
without  performing  any  operations. 

Otherwise  the  location  of  the  element  (1,1)  relative  to  the 
the  origin  of  the  admittance  matrix  is  calculated  according  to • 

1+2* (1-1) * (OFrEP+1) 

where  CPTEF  is  the  number  of  elements  in  each  matrix  column 
transmitted  to  the  subroutine  in  global  common.  The  absolute 
address  is  computed  as  LOC (K) =DATREC-1+K  and  the  element  is  read 
from  file  2^  by  subroutine  DATARD  and  stored  in  PE.  The  complex 
admittance  A  is  added  tc  P  by  subroutine  CX ADD  and  the  updated 
matrix  element  is  rewritten  to  file  2d  by  subroutine  DATAWR. 

If  the  negative  node  of  connection  is  ground  (J=0) , 
subroutine  ZIACD  returns  to  the  calling  program  without 
performing  further  operations.  Otherwise  the  location  of  the 
element  (J,J'  relative  to  the  origin  of  the  admittance  matrix  is 
calculated  according  to* 

1=  1  +  2*  (J-l) * (ORDER+1 ) 
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The  absolute  address  is  computed  as  LOC (L) =DATREC-1+L  and  the 

element  is  read  from  file  20  by  subroutine  DATARD  and  stored  in 

PE.  The  complex  admittance  A  is  added  to  PE  by  subroutine  CXADC 
and  the  updated  matrix  element  is  rewritten  bo  file  20  by 

subroutine  DATAWR. 

Next  the  location  of  the  element  (I,J)  relative  to  the- 

origin  of  the  admittance  matrix  is  calculated  according  to  : 

M=  K+  (J-I) *CFDER*2 

The  absolute  address  is  computed  as  LOC  (M)  =DATFEC-1-+N  and  the 

element  is  read  from  file  20  by  subroutine  DATARD  and  stored  in 
PE.  The  complex,  admittance  A  is  subtracted  from  PE  by  subroutine 
CXSUP  and  the  updated  matrix  element  is  rewritten  to  file  2R  by 
subroutine  DATAWR . 

Finally  the  location  of  the  element  (J,I)  relative  to  the 

origin  of  the  admittance  matrix  is  calculated  according  to: 

N=  K+  (J-I ) *2 

The  absolute  address  is  computed  as  LCC (N) =DATREC-1+N  and  the 

element  is  read  from  file  20  by  subroutine  DATARD  and  stored  in 
PE.  The  complex  admittance  A  is  subtracted  from  PE  by  subroutine 
CXSUB  and  the  updated  matrix  element  is  rewritten  to  file  2C  by 
subroutine  DATAWR. 

After  the  admittance  has  been  properly  placed  in  the  matrix, 
subroutine  ZIADD  returns  to  the  calling  program. 


•*  ► 
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NAME:  PHASE3 


TYPE:  SUBROUTINE 

GENERAL  PURPOSE- 

Calculates  current  vectors.  Computes  linear  and 
nonlinear  transfer  functions  for  each  possible  frequency 
combination  by  solving  the  matrix  equation 

(ADMITTANCE  MATRIX)  X  (TRANSFER  FUNCTION)  =  (CURRENT  VECTOR) 

VARIABLES- 

CUR  =  Intermediate  storage  for  current  vector 
element 

FREQ  =  Frequency  values 
FRTEL  =  Frequency  number  table; 

Subscript  =  Sequential  frequency  number 
Value  =  User-assigned  freauency  number 

LOCPE  =  Address  of  1st  admittance  matrix  on  file  20 
LOCT  =  Address  of  1st  T.F.  vector  on  file  20 

LPE  =  Length  of  each  admittance  matrix  in  words 
LT  =  Length  of  each  T.F.  vector  in  words 
MXCRD  =  Maximum  order  of  analysis 
NORDP  =  Order  of  analysis 
S  =  Angular  frequency 

SCODE  =  Freauency  combination  code 
SCOME  *  Sequential  frequency  combination 
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SEQ 


Frequency  combination  vector 


SUBROUTINES  CALLED: 
CONTRL  CURGEN  CURJF 

CURPT  CURSD  CURT 

DATARD  DRIVRD  DRIVWR 

TFWR  TIMOUT  TRIANG 


CURNC  CURNDS 

CURVD  CURVT 

PHASE4  PTIME 


CALLING  PROGRAMS: 
PHASE2 


DESCRIPTION: 

Subroutine  PHASE3  is  the  principal  routine  of  the  last 
computational  phase  of  the  NCAP  circuit  analysis.  It  controls 
the  creation  of  current  vectors  and  calculates  and  stores  the 
transfer  functions  for  each  possible  combination  of  the  circuit's 
input  frequencies. 

The  current  vector  is  a  single-dimension  array  of  complex 
elements,  one  for  each  node  in  the  circuit.  The  nonlinear 
currents  calculated  in  PHASE3  are  stored  in  the  vector  so  that 
the  current  at  node  I  is  represented  by  the  Ith  complex  vector 
element.  The  current  vector  is  stored  on  disk  file  25.  Every 
complex  vector  element  occupies  two  decimal  storage  locations  and 
is  individually  addressable. 

The  transfer  functions  at  each  node  of  the  circuit  are 
calculated  for  every  possible  combination  of  the  circuit's  input 
frequencies.  The  transfer  functions  for  a  single  frequency 
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combination  are  stored  in  a  vector  of  complex  elements,  one  for 
each  node  in  the  circuit,  so  that  the  transfer  function  at  node  I 


is  represented  by  the  Ith  complex  vector  element.  The  transfer 
function  vectors  are  stored  on  disk  file  20.  Every  complex 
vector  element  occupies  two  decimal  storage  locations  and  is 
individually  addressable.  Successive  transfer  function  vectors 
are  stored  contiguously  in  the  order  they  are  calculated  in 
PHASE3,  as  one  data  record  associated  with  the  End  Circuit  driver 
record . 

The  construction  of  current  vectors  and  calculation  of 
transfer  functions  in  subroutine  PHASE3  is  controlled  bj  scanning 
the  driver  file  -l)  times,  once  for  each  possible 
combination  of  the  MXORD  input  frequencies.  The  Start  Circuit 
driver  record  initiates  the  construction  of  a  current  vector. 
During  the  construction  in  PHASE3  the  current  vector  remains 
disk-resident.  When  a  current  is  to  be  placed  in  the  vector,  the 
appropriate  element  is  read  from  file  25,  updated,  and  rewritten 
to  its  original  location. 

As  the  driver  file  scan  proceeds,  the  currents  generated  by 
circuit  elements  are  calculated  and  placed  in  the  vector  as  their 
driver  records  are  encountered.  The  End  Circuit  driver  record 
terminates  the  current  vector  construction  for  a  particular 
frequency  combination,  calculates  and  stores  the  transfer 
functions  for  that  frequency  combination,  and  restarts  the  driver 
file  scan  for  the  next  combination. 

The  first  driver  file  scan  begins  by  initializing  the  driver 
file  record  number  to  DRVREC=1.  A  driver  record  is  read  from 
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file  21  by  subroutine  DRIVRD ,  and  subroutine  PHASE2  responds  to 
the  MODE  of  the  record  as  follows: 

MODE«l  Driver  File  Header 

The  next  available  file  20  data  storage  location  is  set  by 
DATREOMISC  (1)  and  the  total  number  of  input  frequencies  for  the 
circuit  is  taken  as  MXORD*MISC  (2)  .  The  20-word  frequency  table 
is  read  from  file  20  by  subroutine  DATARD  and  stored  in  the 
common  data  buffer  BUFF.  The  frequency  values  are  transferred 
from  BUFF(1)-(10)  to  the  uecimal  vector  FREQ  and  the  frequency 
numbers  are  transferred  from  BUFF(ll) - (20)  to  the  integer  vector 
FRTBL.  Control  then  returns  to  the  driver  file  scan. 

MODEgl 3  Start  Circuit 

The  disk  address  of  the  first  admittance  matrix  on  file  20 
is  set  to  LOCPE*MISC (5) ,  the  disk  address  of  the  first  transfer 
function  vector  on  file  20  is  taken  as  LOCT=DATPEC ,  and  the 
number  of  nodes  in  the  circuit  is  set  by  OPDEP=MISC (4) .  The 
order  of  analysis  is  initialized  to  NORDR=0.  The  length  of  each 
transfer  function  vector  (in  words)  is  calculated  by  LT=2*0RDEP 
and  the  length  of  each  admittance  matrix  (in  words)  is  calculated 
by  I«PE*LT*ORDER. 

Subroutine  CONTRL  is  called  to  initiate  the  PHASE 3 


calculations  for  the  first  frequency  combination.  It  updates  the 
order  of  analysis,  forms  the  frequency  combination,  and  creates 
and  stores  a  table  of  selected  lower  order  transfer  function 
vectors  for  use  by  the  current  generator  subroutines.  The  call 
to  subroutine  CONTRL  and  the  remainder  of  the  initialization  is 
performed  by  the  END  CIRCUIT  code,  and  is  described  in  detail 
under  .VODE=14.  After  the  initialization  is  complete,  subroutine 
PFASE3  resumes  the  driver  file  scan. 


N0DE=3  Cenerator 

For  linear  frequency  combinations  (N0RDR=1) ,  subroutine 
CUPGEN  is  called  to  compute  the  generator  current  and  place  it  in 
the  current  vector.  Control  then  returns  to  the  driver  file 
scan.  For  higher  orders  of  analysis  (NORDR/1) ,  subroutine  PHASE3 
returns  to  the  driver  file  scan  without  further  processing. 


NCDE=5  Nonlinear  Componen ts 

For  linear  frequency  combinations  (N0RDR=1 ) ,  subroutine 
PHASF3  returns  to  the  driver  file  scan  without  further 
processing.  For  higher  orders  of  analysis  (NORDR .GT . 1 ) , 
subroutine  CUPN'C  is  called  to  compute  the  nonlinear  currents  and 
place  them  in  the  current  vector.  Control  then  returns  to  the 
driver  file  scan. 
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M0DE«6  Vacuum  Diode 


For  linear  frequency  combinations  (NOFDF-1) ,  subroutine 
PHASE3  returns  to  the  driver  file  scan  without  further 
processing.  For  higher  orders  of  analysis  (N0FDR.GT.1 ) , 
subroutine  CUPVD  is  called  to  compute  the  nonlinear  current  and 
place  it  in  the  current  vector.  Control  then  returns  to  the 
driver  file  scan. 


MODE-7  Vacuum  Triode 

For  linear  frequency  combinations  (N0RDF*1) ,  subroutine 
PHASE3  returns  to  the  driver  file  scan  without  ’further 
processing.  For  higher  orders  of  analysis  (N0RDF.CT.1) , 
subroutine  CUFVT  is  called  to  compute  the  nonlinear  current  and 
place  it  in  the  current  vector.  Control  then  returns  to  the 
driver  file  scan. 


Vacuum  Pentode 

For  linear  frequency  combinations  (NORDF=l ) ,  subroutine 
PHASE3  returns  to  the  driver  file  scan  without  further 
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processing.  For  higher  orders  of  analysis  (N0RDR.GT.1) , 
subroutine  CURPT  is  called  to  compute  the  nonlinear  currents  and 
place  them  in  the  current  vector.  Control  then  returns  to  the 
driver  file  scan. 

MCDF=9  Eipola r  Junction  Transistor 

For  linear  frequency  combinations  (N0RDR=1) ,  subroutine 

PHAGE3  returns  to  the  driver  file  scan  without  further 

0 

processing.  For  higher  orders  of  analysis  (N0RDR.GT.1) , 
subroutine  CURT  is  called  to  compute  the  nonlinear  currents  and 
place  them  in  the  current  vector.  Control  then  returns  to  the 
driver  file  scan. 

MQDE=10  Semiconductor  Diode 

For  linear  frequency  combinations  (N0RDR*1 ) ,  subroutine 
PH?SE3  returns  to  the  driver  file  scan  without  further 
processing.  For  higher  orders  of  analysis  (N0RDR.GT.1) , 

subroutine  CURSD  is  called  to  compute  the  nonlinear  current  and 
place  it  in  the  current  vector.  Control  then  returns  to  the 

driver  file  scan. 

*?0DF=2fl  J unction  Field  Effect  Transistor 


For  linear  frequency  combinations  (N0RDR=1) ,  subroutine 
PHASE3  returns  to  the  driver  file  scan  without  further 
processing.  For  higher  orders  of  analysis  (N0RDR.GT.1) , 
subroutine  CURJF  is  called  to  compute  the  nonlinear  currents  and 
place  them  in  the  current  vector.  Control  then  returns  to  the 
driver  file  scan. 


MODE=26 _ Nonlinear  Dependent  Source 

For  linear  freouency  combinations  (N0RDR=1) ,  subroutine 
PHASE3  returns  to  the  driver  file  scan  without  further 
processing.  For  higher  orders  of  analysis  (NCPDR.CT.l) , 
subroutine  CUPNDF  is  called  to  compute  the  nonlinear  current  and 
place  it  in  the  current  vector.  Control  then  returns  to  the 
driver  file  scan. 


■M0DF=1 4  End  Circuit 

The  transfer  function  vector  is  calculated  by  subroutine 
TRIANC  and  stored  on  file  20.  The  next  available  file  20  storage 
location  is  updated  to  DATPEC=DATFFC+LT  and  subroutine  CCNTPL  is 
called  to  initiate  the  calculations  for  the  next  frecuency 
combination.  It  updates  the  order  of  analysis,  forms  the  next 
freouency  combination,  and  creates  and  stores  a  table  of  selected 
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lower  order  transfer  function  vectors  for  use  by  the  current 


qenerator  subroutines.  After  returning  from  subroutine  CONTRL, 
if  the  last  transfer  function  vector  has  not  been  computed 
(NCPDR.CT.E) ,  the  current  vector  storage  area  is  cleared,  one 
element  at  a  time  as  follows r  subroutine  TFWR  writes  the  complex 
number  CUP=(0.,0.)  to  the  first  LT/2  vector  elements  on  file  25. 
The  driver  file  record  number  is  reset  for  the  next  driver  file 
scan  by  DRVREC=MISC (1 ) +1  and  control  returns  to  the  driver  file 
scan . 

If  the  last  transfer  function  sector  has  been  calculated 
(NCRDP=-1),  the  transfer  function  data  record  is  attached  to  the 
Fnd  Circuit  driver  record  by  N'ISC  ( 2)  =LOCT .  The  next  available 
file  20  storage  location  is  saved  in  MISC(3)  and  the  End  Circuit 
record  is  rewritten  to  the  driver  file  by  subroutine  DPIVWR. 
Control  then  returns  to  the  driver  file  scan. 


M0DE=16  End 

The  driver  file  header  is  read  by  subroutine  DRIVRD,  updated 
to  reflect  the  next  available  file  20  storage  location,  and 
rewritten  by  subroutine  DRIVKP.  Program  control  then  transfers 
to  subroutine  PHASE4 . 

For  other  values  of  MODE,  control  returns  to  the  driver  file 
scan  without  further  processing  by  subroutine  PHASE3 . 
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NAME;  BETA 


TYPE :  SUBROUTINE 


GENERAL  PURPOSE- 


K 

Calculates  the  function  B 


M 


for  use  by  subroutine  CURT 


VARIABLES- 


ALPHS 

S 

Nonlinear  coefficients 

B 

s 

Calculated  value  of  the  BETA  function 

HM 

s 

Nonlinear  coefficients 

ICHMO 

x 

Nonlinear  parameter 

II 

s 

Order  of  expansion  coefficient 

ISW 

s 

Control  variable  for  subroutine  FUN 

-1  *  Initialize  algorithm 

0  *  Continue  algorithm 

1  «  Algorithm  complete 

K 

- 

Index  for  outer  summation  of  current 

calculation 

KI 

- 

Subscripts  calculated  in  subroutine  FUN 

KS 

- 

Nonlinear  coefficients 

M 

X 

Index  for  inner  summation  of  current 

calculation 

PAR 

s 

Additive  accumulator 

PR 

s 

Multiplicative  accumulator 
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SNCS  =  Nonlinear  parameter 

SUBROUTINES  CALLED: 

PUN 

CALLING  PROGRAMS- 
CURT 

DESCRIPTION: 

K 

Subroutine  BETA  calculates  the  function  Em  for  use  in 
calculating  the  nonlinear  current  for  the  bipolar  junction 

9 

transistor.  Arguments  transmitted  to  the  subroutine  are:  K,  the 

index  for  the  inner  summation  in  the  nonlinear  current 

calculation-  M,  the  index  for  the  outer  summation  in  the 

nonlinear  current  calculation;  ALPHS,  HM,  and  KS,  nonlinear 

coefficients  calculated  in  Phase  1;  ICHM0  and  SNCS,  nonlinear 

parameters  calculated  in  Phase  1.  The  calculated  function  BK  is 

M 

returned  to  the  calling  program  in  E. 

If  K=M,  the  function  BK  is  calculated  according  to 

M 

E=ICHM0*HM (M)  and  subroutine  EETA  returns  to  the  calling  program. 

Otherwise  the  function  BK  is  defined  as- 

M 


K-M 


B  =  SNCS  *  HM(M)  *  E  ALPHS (I)  *  F*"M  (KS) 

1=1  X 


,K-M 


where  each  Fj.  (KS)  ,  a  sum  of  products  of  nonlinear  coefficients 
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KS,  is  computed  by  repeated  calls  to  subroutine  FUN  under  the 


control  of 

the 

variable  ISW. 

For 

ISW=-1  the  algorithm 

of 

subroutine 

FUN 

is  initialized 

and 

each  call  returns  a  set 

of 

integers  in  the  vector  KI  which  constitute  the  subscripts  of  KS's 
to  be  multiplied  together  to  form  one  additive  term  of  the 
expression.  Upon  return  from  subroutine  FUN,  if  ISW=0  additional 
products  remain  to  be  calculated,  and  subroutine  FUN  is  called 
again.  .When  the  expression  is  complete,  SWTCP  is  returned  as  1 
and  the  algorithm  stops. 

K 

The  complete  procedure  for  calculating  the  function  Em  in 
subroutine  BETA  is  summarized  as  follows: 

STEP  1:  Initialization 

Clear  additive  accumulator  PAK=0. 

Initialize  index  for  summation  1=1 
Initialize  FUN  algorithm  by  ISW=-1 

K-M 

Calculate  One  Additive  Term  ALPHS(I)*-Fj  (KS) 

Initialize  multiplicative  accumulator  PK=1. 

Call  subroutine  FUN  to  generate  subscripts  KI(J), 
J»1,2,...I  for  one  additive  term. 

Form  the  product 


a) 

b) 

c) 

STEP  2: 

a) 

b) 

c) 
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a)  If  ISV7=0,  more  products  remain  to  be  calculated.  Go  to 
Step  2. 

b)  Otherwise  one  additive  term  complete  in  PK,  go  to 

# 

Step  4. 


a)  Increment  1=1+1 

b)  If  (I.LE. (K-M) ) ,  go  to  Step  lc. 

c)  Otherwise  summation  complete  in  PAK,  go  to  Step  5. 


STEP  5 •  Complete  Calculation  of  B] 


a)  Compute  B=SNCS*HM (M) *PAK . 

b)  Return  to  calling  program  with  E^  in  E. 
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NAME?  CONTRL 


TYPE-  SUBROUTINE 

GENERAL  PURPOSE? 

Provides  frecruency  control  for  PPASE3 . 

Cenerates  frequency  combinations,  updates 
order  of  analysis,  creates  T.F.  table  for 
use  by  current  generator  subroutines 

VARIAPLES  ? 

FREQ  =  Freouency  values 
FPTPL  =  Freouency  number  table? 

Subscript  =  Seauential  frequency  number 
Value  =  User-assigned  frequency  number 

K  =  Record  number  for  input  of  T.F.  from  file  25? 

LL  =  Record  number  for  output  of  T.F.  to  file  24 

LOCT  =  Address  of  1st  T.F.  on  file  20 

LT  =  Length  of  T.F.  vector  in  words 

MOP DR  =  Order  of  lower-order  T.F. 

MXORD  =  Maximum  order  of  analysis 

NOP DR  =  Order  of  analysis 

S  =  Angular  freouency 

SCODE  =  Freouency  combination  code 

SCOFF  =  Secuential  freouency  combination 

SEC  =  Freouency  combination  vector 
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SECl  =  Lower-order  frequency  combination  vector 
T  =  Intermediate  storage  for  T.F.  element 

SUBPCUTINES  CALLED- 

L'ATARD  SSCCDE  TFWP  UPSEC 

CALLING  PROCFAMS - 
PHASE 3 

DESCRIPTION- 

Subroutine  CONTRL  initiates  the  PHASE3  calculations  of  the 

0 

current  vector  and  transfer  functions  for  a  particular  frequency 
combination  by  forming  that  frequency  combination  and  creating  a 
table  of  selected  lower  order  transfer  function  vectors  from 
which  the  circuit's  nonlinear  currents  are  derived. 

Arguments  transmitted  to  CONTRL  from  subroutine  PHASE3  are: 
MXCPC,  the  number  of  input  frequencies  for  the  circuit  (maximum 
order  of  analysis):  FPEC,  the  input  frequency  values-  FRTEL, 

the  freouency  number  table:  LCCT ,  the  disk  address  of  the  first 
transfer  function  vector  on  file  20-  LT r  the  length  of  each 
transfer  function  vector  in  words-  NORDP,  the  number  of 
frequencies  in  the  previous  frequency  combination  (order  of 
analysis) -  and  SEC/  the  previous  frequency  combination  vector. 
Arguments  returned  to  subroutine  PHASE3  are-  SCODE,  the  new 
freouency  combination  code-  NOPDR ,  the  number  of  frequencies  in 
the  new  frequency  combination  (updated  order  of  analysis) :  S, 
the  calculated  angular  frequency  for  the  new  frequency 
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combination  and  SEC,  the  new  frequency  combination  vector. 

Upon  entering  subroutine  CONTRL,  the  next  frecuency 
combination  is  generated  by  subroutine  UPSEC.  If  the  last 
possible  frequency  combination  has  already  been  generated 
(NORDR.LE.0) ,  subroutine  CONTRL  returns  to  the  calling  program 
without  further  processing.  Otherwise  NORDR  (the  updated  order 
of  analysis)  represents  the  number  of  frequencies  in  the  new 
combination  which  is  transmitted  to  subroutine  CONTRL  in  the 
integer  vector  SEQ,  where  the  NOFER  frequencies  in  the 
combination  are  stored  according  to  increasing  sequential 
frequency  numbers  in  the  first  NOPDR  elements  of  SEC. 

Next  the  seouential  frequency  combination  is  derived  from 
the  frequency  combination  vector  according  to: 

NORDR 

SCOMB  =  Z  SEQ  (I) 

1=1 

Subroutine  SSCODE  is  called  to  calculate  the  frecuency 
combination  code,  SCCDE,  and  the  angular  frequency,  S. 

Because  linear  currents  are  not  derived  from  previous 
transfer  functions,  no  transfer  function  vector  table  is  created 
for  first  order  frequency  combinations.  Therefore  for  K0PDR=1, 
subroutine  CONTRL  stores  the  sequential  frequency  combination  in 
SEQ (11)  and  returns  to  the  calling  program  without  further 
processing.  For  higher  orders  of  analysis  (NORDR .GT. 1 ) ,  the 
remainder  of  subroutine  CCNTFL  is  devoted  to  creating  and  storinQ 
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the  transfer  function  vector  table  for  the  new  frequency 
combination . 


In  the  NCAP  circuit  analysis,  the  nonlinear  currents  for  a 
particular  frequency  combination  are  derived  from  previously 
calculated  transfer  functions.  In  particular,  an  nth  order 
nonlinear  current  evaluated  at  the  frequency  combination  (fl,f2 
,....fn)  is  derived  from  the  2n  -2  lower  order  transfer  function 
vectors  from  frequency  combinations  which  are  subsets  of 
(f 1 , f 2 , . . .fn) .  For  example  in  a  circuit  with  four  input 
freauencies,  the  third  order  nonlinear  currents  at  the*  frequency 
combination  (fl,f3,f4)  are  derived  from  the  2 3  -2=6  transfer 
function  vectors  from  all  the  first  and  second  order  combinations 
of  fl,  f 3 ,  and  f4r 
T  (f  1 ) 

T  (f  3) 

T  ( f  4 ) 

T(f 1 ,  f 3) 

T  ( f  1 ,  f  4 ) 

T  (f  3 , f 4) 

The  transfer  functions  vectors  T (f 2) ,T (f 1 , f 2) ,  T(f2,f3),  T(f2, 

f4)  do  not  contribute  to  the  nonlinear  current  since  they 
correspond  to  frequency  combinations  that  are  not  subsets  of 
(f  1 ,  f  3  ,  f  4)  . 

In  subroutine  CCNTRL  the  lower-order  transfer  function 
vectors  required  for  the  nonlinear  current  calculations  at  the 
new  frequency  combination  are  selected  from  file  20  and  placed  in 
a  table  on  file  24  for  use  by  the  nonlinear  current  generator 
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subroutines  of  Phase  3.  The  selection  process  involves 
recreating  every  lower-order  frequency  -  combination  while 
maintaining  the  file  20  address  of  the  corresponding  transfer 
function  vector.  When  a  subset  of  the  new  frequency  combination 
is  encountered,  the  appropriate  transfer  function  vector  is  read 
from  file  20  and  appended  to  the  table  on  file  24.  This 
procedure  guarantees-  that  only  those  transfer,  function  vectors 
required  for  the  new  freouency  combination  are  included  in  the 
table. 

The  lower  order  frequency  combinations  are  generated  by 
repeated  calls  to  subroutine  UPSEQ.  The  order  of  the  combination 
is  maintained  in  MORDR  and  each  freouency  combination  is  returned 
to  subroutine  CONTRL  in  the  first  MORDR  elements  of  the  integer 
vector  SFQ1 . 

The  creation  of  the  transfer  function  vector  table  in 
subroutine  CONTRL  begins  by  initializing  MORPR=0.  The  file  23 
address  is  initialized  to  K=LCCT  and  the  file  24  address  is  set 
to  LL=1 .  Subroutine  UPSEO  is  called  to  generate  a  frequency 
combination  of  order  MORDR,  which  is  returned  in  SF01. 

If  the  last  combination  has  not  been  generated  (MORDR. LT 
NOPDR) ,  subroutine  CONTRL  determines  whether  the  frequency 
combination  in  SEC1  is  a  subset  of  the  combination  in  SEC.  If 
every  SECl(l),  1=1. MORDR  eouals  some  SEO(J),  J=l, NOPDR,  then  the 
corresponding  transfer  function  vector  stored  at  K  is  read  from 
file  20  by  subroutine  DATAFD  and  appended  to  the  table  on  file  24 
by  subroutine  TFWR.  Then  the  file  24  address  is  updated  to 
LL*LL+LT,  the  file  23  address  is  updated  to  K=K+LT,  and  the  next 
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freauency  combination  is  generated. 

If  SFQ1  is  not  a  subset  of  SEO,  the  read/write  operations 
are  by-passed  and  only  the  file  20  address  is  updated  before 
generating  the  next  frequency  combination. 

This  process  continues  until  MORDR=NORDR,  indicating  that 
all  lower  order  combinations  have  been  generated  and  the  transfer 
function  vector  table  is  complete.  Subroutine  CONTRL  then  saves 
the  sequential  frequency  combination  in  SEO(ll)  and  returns  to 
the  calling  program. 


<► 


3-521 


NAME •  CROSS 


TYPE:  SUBROUTINE 

GENERAL  PURPOSE: 

Accesses  voltages  in  T.F.  vector  table, 
computes  T.F.  product  for  one  frequency 
permutation,  adds  product  to  accumulator 
for  symmetr ization  by  subroutine  FNCTN 


VARIABLES* 

FNK 

FREQC  = 

II 

K 

LCCTF  = 
N 

NODE 

C 

SUPS 

TS 


YY 

11 


Subscripts  calculated  in  subroutine  FUN 

Permuted  frequency  vector 

Subscript  for  permuted  frequency  vector 

Number  of  voltages  in  T.F.  product 

Origin  of  T.F.  vector  on  file  24 

Order  of  nonlinear  current  being  calculated 

Base  node  of  circuit  element 

Node  pattern  of  T.F.  product 

Locations  of  voltages  in  T.F.  vector 

Intermediate  storage  for  voltage 

Sum  of  T.F.  products 

T.F.  product 


SUBROUTINES  CALLED* 


CXKPY 


LCCTF 


TFRD 


CALLING  PROGRAMS: 

CURPT  FNCTN 

DESCRIPTION: 

Subroutine  CROSS  accesses  node  voltages  in  the  modified 
transfer  function  table,  computes  the  voltage  product  far  a 
single  frequency  permutation,  and  adds  the  product  to  an 
accumulator  for  use  by  subroutine  FNCTN.  Arguments  transmitted 
to  the  subroutine  are:  FNK ,  the  orders  of  the  voltages  in  the 
transfer  function  product*  Q,  the  node  numbers  (relative  to  the 
base  node  of  the  device)  of  the  voltages  in  the  transfer  function 
product:  FREQC,  the  frequency  permutation  vector:  N,  the  order 

of  the  nonlinear  current  being  calculated;  K,  the  number  of 
voltages  in  the  transfer  function  product:  and  YY,  the 

accumulated  sum  of  transfer  function  products.  The  updated  sum  YY 
is  returned  as  an  argument  to  the  calling  program. 

Subroutine  CROSS  begins  by  calculating  the  storage  locations 
for  each  of  the  K  voltages  in  the  transfer  function  product, 
saving  the  locations  in  SUBS(I)  for  1  =  1, 2,.  ..K.  The  voltages  are 
stored  in  the  modified  transfer  function  table  on  file  24.  For 
an  Nth  order  nonlinear  curent  calculation,  the  table  contains 
2N  -2  transfer  function  vectors.  Each  vector  occupies  one 
record  and  contains  ORDER  complex  elements.  The  location  of  a 
particular  node  voltage  in  the  transfer  function  table  is  derived 
by : 

VOLTAGE  LOCATION  =  T.F.  ORIGIN  +  NODE  DISPLACEMENT 
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First  the  function  subprogram  LOCTF  calculates  the  record  number 
of  the  transfer  function  vector  containing  the  desired  voltage. 
Then  the  transfer  function  origin  is  defined  as: 


TRANSFER  FUNCTION  ORIGIN  =  (LOCTF-1) *ORDER 
Then  using  0(1),  the  location  of  the  Ith  node  voltage  relative  to 
the  base  node  of  the  circuit  element,  and  NODE,  the  number  of  the 
base  node,  the  node  displacement  is  defined  as: 

NODE  DISPLACEMENT  =  C(I)+N0DE-1 

The  complete  expression  for  the  location  of  the  Ith  voltage  in 
the  transfer  function  product  is- 

SUBS ( I )  =  ( (LOCTF-1) *OPDER)+0(I)+NODE-1 

After  all  of  the  K  voltage  locations  have  been  calculated, 
the  transfer  function  product  is  formed.  A  voltage  is  read  from 
file  24  by  subroutine  TFRD  and  stored  in  TS.  The  product  is 
accumulated  in  ZZ  by  subroutine  CXMPY.  When  all  K  voltages  have 
been  accessed  and  multiplied,  the  resulting  product  is  added  to 
the  accumulator  YY  and  subroutine  CROSS  returns  to  the  calling 
program . 


u 
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NAMF •  CURCEN 


TYPE :  SUBROUTINE 


GENERAL  PURPOSE 


VARIABLE 


Linear  current  (impedance) 


Current  vector  element 


User-assigned  frequency  nuirbers 


Relative  location  of  impedance  on  file  20 


Number  of  frequencies 


NFPEC 


umber  of  impedances 


Positive  node  of  connection 


NODE 


NCEEP 


Negative  node  of  connection 


Frecuency  combination  code 


CALLED 


CXACD  CXSUE 


DATA  PD  TFRD 


TFWR 


CALLING  PROGRAMS 


DESCRIPTION: 

Subroutine  CUPCEN  calculates  the  current  for  the  generator 
at  a  given  frequency  combination  and  places  it  in  the  current 
vector.  The  frequency  combination  code  S CODE,  for  which  the 
current  is  to  be  calculated,  is  transmitted  to  subroutine  CURCFN 
as  an  argument.  The  generator  is  an  independent  voltage  source 
which  generates  linear  current  defined  as  the  generator's 
impedance  at  the  given  freouency  combination.  The  impedances  are 
stored  in  the  generator  data  record  together  with  a  table  of 
corresponding  freouency  combination  codes  INTEL  where  IVTPL(I)  is 
the  freouency  combination  for  the  Ith  impedance  in  the  data 
record.  The  number  of  input  freouencies  and  impedances  for  the 
generator,  UFPEC  and.  NIMPS,  and  the  nodes  of  connection,  NODE  and 
NODEB,  are  stored  in  the  generator  driver  record  in  global 
common . 

First  the  user-assigned  frequency  numbers  are  read  from  the 
Generator  data  record  on  file  2 8  by  subroutine  DA TARE  and  stored 
in  the  integer  vector  FNC.  If  the  frequency  number  encoded  in 
SCGDF  is  not  among  the  freouencies  FNC  defined  for  the  generator, 
subroutine  CUPCFN  returns  to  the  calling  program  without  further 
processing . 

Otherwise  the  table  of  freouency  combination  codes  is  read 
from  the  generator  data  record  on  file  2E  by  subroutine  DATA FD 
and  stored  in  INTEL.  Then  GCCDE  is  compared  against  every 
frequency  combination  code  in  the  table,  IVTPL(I), 
1  =  1 , 2  , . . .NIMPS .  If  no  match  is  found,  subroutine  CUPCEN  returns 
to  the  calling  program.  If  a  match  is  found,  the  table  position 
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I  is  used  to  locate  the  desired  impedance  in  the  data  record. 
The  impedance  is  then  read  from  file  20  by  subroutine  DATARD  and 
stored  in  A. 

The  current  is  placed  in  the  current  vector  on  file  25  by 
adding  A  to  the  current  at  the  positive  node  of  connection,  NODE, 
and  subtracting  A  from  the  current  at  the  negative  node  of 
connection,  NODEP.  The  MODE  current,  located  at  I=2*NODE-l,  is 
read  from  file  25  by  subroutine  TFRD  and  stored  in  CUR.  A  is 
added  to  CUR  by  subroutine  CXADD  and  the  updated  current  is 
rewritten  to  its  original  location  by  subroutine  FTV7R .  If  the 
negative  node  of  connection  is  ground  (NODEB=0 ) ,  subroutine 
CURGEN  returns  to  the  calling  program.  Otherwise  the  MCDFF 
current,  located  at  I=2*NODFP-l,  is  read  from  file  25  by 
subroutine  TFRD  and  stored  in  CUR.  A  is  subtracted  from  CUP  by 
subroutine  CXSUP,  the  updated  current  is  rewritten  to  its 
original  location,  and  subroutine  CUPCEN  returns  to  the  calling 


program. 


NAME  ?  CUPJF 


TYPE:  SUBROUTINE 

GENERAL  PURPOSE- 

Calculates  nonlinear  currents  for  Junction  Field  Effect 
Transistor  and  places  them  in  the  current  vector 

VARIABLES- 

A  =  Nonlinear  coefficient 

C  =  Nonlinear  coefficient 

CGD  *  Input  value 

FREC  =  Frequency  combination  vector 
GG  =  T.F.  expression  for  nonlinear  current 

HG  *  Nonlinear  current 

FH  =  Sum  of  nonlinear  currents 

PL  =  Nonlinear  current 

I  =  Record  number  of  base  node  voltage  (current) 

II  =  Relative  location  of  NODE  in  first  T.F. 

12  =  Relative  location  of  NODE  in  last  T.F. 

13  =  Location  of  work  area  on  file  24 

K  =  Index  for  summation  of  current  calculation 

L  =  Record  number  for  file  24  work  area 

IT  =  Length  of  each  T.F.  vector  in  words 

NODE  =  Base  node  of  connection 

NOPDR  =  Order  of  analysis 


S  ■  Angular  frequency 

X  *  Base  node  voltage  (current) 

XI  =  (Base+1)  node  voltage  (current) 

X 2  =  (Base+2)  node  voltage  (current) 

SUBROUTINES  CALLED' 

CXADD  CXSUB  DATAPD  FNCTN 

TFRD  TFWR 

CALLING  PROGRAMS- 
PKASE3 

DESCRIPTION* 

Subroutine  CUFJF  calculates  the  nonlinear  currents  for  the 
junction  field  effect  transistor  and  places  them  in  the  current 
vector.  Arguments  transmitted  to  the  subroutine  are-  NORDR ,  the 
order  of  the  nonlinear  currents  to  be  calculated  and  S,  the 
angular  frequency.  The  nonlinear  currents  are  functions  of  the 
device  coefficients  calculated  in  Phase  1  and  the  node  voltages 
derived  from  the  lower  order  transfer  functions  stored  on  file 
24.  The  base  node  of  connection,  NODE,  is  stored  in  the  JFET 
driver  record  in  global  common.  The  remaining  nodes  are  numbered 
sequentially  by  the  system  as  NODE+1 ,  NODE+2,  and  NODE+3. 

First  the  JFET  data  record  is  read  from  file  20  by 
subroutine  DATARD  and  stored  in  the  common  data  buffer  BUFF.  The 
node  voltages  for  the  nonlinear  current  calculations  are  computed 
by  replacing  the  transfer  function  at  NODE+2  with  the  difference 
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between  the  transfer  functions  at  NODE  and  NODE+2  for  every 
vector  in  the  table.  This  "modified  transfer  function  table" 
serves  as  the  basis  for  the  nonlinear  current  calculations. 

The  transfer  function  table  consists  of  2NORDI^-2  contiguous 
vectors  beginning  at  record  number  1  on  file  24.  Each  complex 
vector  element  is  the  transfer  function  at  some  node  in  the 
circuit  and  occupies  two  decimal  storage  locations.  The  transfer 
functions  are  stored  in  the  vectors  according  to  increasing  node 
numbers.  Because  the  JFET  nodes  are  numbered  sequentially,  the 
corresponding  transfer  functions  occupy  successive  elements  in 
each  vector.  This  method  of  storage  allows  the'  transfer 
functions  to  be  accessed  and  modified  by  the  following  iterative 
procedure : 

o 

STEP  1 •  Initialization 

a)  Length  of  each  T.F.  vector:  LT*2*0RDER 

b)  Location  of  NODE  in  first  vector:  Il*2*N0DE-l 

c)  Location  of  NODE  in  last  vector-  12*11+ (2  N0RDR-3)  *LT 

d)  Origin  of  scratch  area  on  file  24:  L  *  2  N0RI>R  *  lT 

e)  Set  index  at  first  vector-  1*11 

STFP  2  -  Access  and  Modify  Next  Vector 

•*  ► 

-  » 

a)  Read  transfer  functions  at  sequential  device  nodes 
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beginning  at  I,  store  in  X,  xi,  and  X2. 

b)  Write  device  voltages  to  scratch  area  at  L, 
increment  L=L+2. 

c)  Calculate  X2=X-X2 

d)  Write  updated  transfer  functions  to  file  24  begin¬ 
ning  at  I. 


STEP  Increment  and  Test  Index 

a)  Increment  I=I+LT 

b)  If  (I.LE.I2)  more  vectors  remain  to  be  modified.  Go 
to  Step  2. 

c)  Otherwise  modified  transfer  function  table  complete. 

The  nonlinear  currents  of  order  NORDR  for  the  JFET 
defined  as r 

NORDR 

HG  =  E  A(K)  *  FT  (NODE  +  3) 

K=2 


NORDR 
=  Z 
K=2 


S  *  C  (K)  *  fP*0* 
K 


(NODE  +  3) 


HL 


Subroutine  CUFJF  initializes  HG  and  HL  to  zero,  then  each 

NOROR 

symmetric  transfer  function  expression  FK  (NODE+3)for  K*2,3,.. 
NORDR  is  computed  by  subroutine  FNCTN,  multiplied  by  the 
appropriate  coefficients  A (K)  or  S*C(K),  and  accumulated  in  HG 
and  HL. 

Then  the  transfer  function  table  is  restored  by  reading  the 
transfer  functions  saved  in  the  scratch  area  in  file  24  and 
rewriting  them  to  the  original  locations  in  the  table.  The 
procedure  is  similar  to  that  employed  for  modifying  the  transfer 
function  table. 

The  nonlinear  currents  are  placed  in  the  current  '  vector  on 
file  25  by  subtracting  HL  from  the  current  at  NODE,  subtracting 
PG  from  the  current  at  NODE+1,  and  adding  HG  and  HL  to  the 
current  at  NODE+2.  The  current  elements  for  the  sequential  JFET 
nodes,  beginning  at  I=2*NCDE-1,  are  read  from  file  25  by 
subroutine  TFRD  and  stored  in  X,  XI,  and  X2.  HL  is  subtracted 
from  X  and  HG  is  subtracted  from  XI  by  subroutine  CXSUB.  HG  and 
PL  are  added  to  X2  by  subroutine  CXADD.  The  updated  current 
elements  are  rewritten  to  their  original  locations  by  subroutine 
TFWR  and  subroutine  CURJF  returns  to  the  calling  program. 
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NODE  =  Positive  node  of  connection 

NODES  =  Negative  node  of  connection 
NORDR  =  Order  of  analysis 

RCL  =  Component  type ;  1  *  Resistor 

2  *  Capacitor 

3  =  Inductor 

S  =  Angular  frequency 

SP  =  Frequency  product 

X  =  NODE  voltage  (current) 

=  NODEB  voltage  (current) 

SUBROUTINES  CALLED: 

CXADD  CXDIV  CXMPY  CXSUB  DATARD 

FNCTN  SSCOD2  TFRD  TFWR  UPSEQ 

CALLING  PROGRAMS* 

PHASE3 


DESCRIPTION* 

Subroutine  CURNC  calculates  the  nonlinear  currents  for 
nonlinear  components  and  places  them  in  the  current  vector. 
Arguments  transmitted  to  the  subroutine  are:  NORDR,  the  order  of 
the  nonlinear  current  to  be  calculated;  FREQ,  the  input 
frequency  values  for  the  circuit:  FRTBL ,  the  frequency  number 
table*  SEC,  the  frequency  combination  vector:  and  S,  the 
angular  frequency.  The  nonlinear  current  is  a  function  of  the 
device  coefficients  stored  in  the  nonlinear  components  data 


record,  the  node  voltages  derived  from  the  lower  order  transfer 
functions  stored  on  file  24,  and  in  the  case  of  the  nonlinear 
inductor,  the  angular  freouency  at  the  lower  orders  of  analysis. 

First  the  nonlinear  components  data  record  is  read  from  file 
20  by  subroutine  DATAPC  and  stored  in  the  common  data  buffer 
PUFF.  Then  a  table  of  lower  order  angular  frequencies  is  created 
for  each  vector  in  the  transfer  function  table.  The  method  is  to 
recreate  every  lower  order  frequency  combination  which  is  a 
subset  of  the  present  frequency  combination  vector  SFC,  calculate 
the  angular  frequency  for  that  combination,  and  store  it  in  the 
vector  FPTAB.  The  frequency  combinations  are  recreated  in  the 
same  order  as  the  transfer  function  vectors  were  selected  and 
stored  in  the  transfer  function  table  by  subroutine  CONTRL,  so 
that  the  angular  frequency  stored  at  FPTAP(I)  corresponds  to  the 
Ith  transfer  function  vector  on  file  24. 

The  recreation  of  lower  order  frequency  combinations  is 
performed  by  repeated  calls  to  subroutine  UPSFQ  under  the  control 
of  the  integer  variable  MORDP,  which  maintains  the  order  of  the 
combination  being  formed.  Subroutine  SSC0P2  calculates  the 
angular  frequency  and  appends  it  to  the  FPTAE  vector.  The 
complete  procedure  for  creating  the  angular  freouency  table  is 
summarized  as  follows- 

STEP  1-  Initialization 

a)  Initialize  FPTAP  subscript  to  LL=0. 


b)  Initialize  iraxiruir  order  of  frequency  cor, bination 
required  to  f'XCEC=NCFEF . 

c)  Initialize  nurber  of  frecuencies  ir  lov;er  order  corbin- 
-  ticn  to  r-CPrp=r. 


STOP  2  Cenerate  T'ext  Frequency  Corb.ination 

a)  Call  subroutine  t’FSFC  to  generate  next  freouency  com¬ 
bination  vector  in  SECl. 

b)  If  (•‘•CRDr.IT.rCFDP)  ,  go  to  Step  3. 

c)  Otherwise  angular  frequency  table  complete. 


STFP  3-  Test  for  SFQ1  a  Subset  of  SEC 

a)  If  every  SEC1(I)  for  1=1,2,.. .MORDR  equals  sore  SEO(J) 
for  J=1 , 2  ,  . .  .ITOPDR ,  go  to  Step  4. 

b)  Otherwise  go  to  Step  2. 

STEP  4 •  Calculate  Angular  Frequency  and  Append  to  Table 

a)  Calculate  sequential  frecuency  corbination  by 
MDRDR 

SCOMB  =  E  SEQl(I) 

1=1 
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b)  Increment  FRTAB  index  to  LL*LL+1 . 

c)  Call  subroutine  SSC0D2  to  calculate  angular  frequency 
and  append  to  table  at  FRTAB(LL) . 

d)  Go  to  Step  2. 


For  each  nonlinear  component  description  in  the  data  record, 
subroutine  CURNC  transfers  the  component  type  to  RCL  and  the 
positive  and  negative  nodes  of  connection  to  NODE  and  NODEB 
respectively.  Then  the  node  voltages  for  the  nonlinear  current 
calculations  are  computed  by  replacing  the  transfer  function  at 
NODE  with  the  difference  between  the  transfer  functions  at  NODE 
and  NODEB  for  every  vector  in  the  transfer  function  table.  For 
nonlinear  inductors,  the  updated  transfer  function  at  NODE  is 
divided  by  the  corresponding  angular  frequency  from  the  table 
FRTAB .  This  "modified  transfer  function  table"  serves  as  the 
basis  of  the  nonlinear  current  calculations.  If  the  negative 
node  of  connection  is  ground  (NODEE=0 )  for  any  component  in  the 
data  record,  the  modification  of  transfer  functions  for  that 

component  is  by-passed. 

.  ,  _  ,  NORDR 

The  transfer  function  table  consists  of  2  -2  contiguous 

vectors  beginning  at  record  number  1  on  file  24.  Each  complex 

vector  element  is  the  transfer  function  at  some  node  in  the 

circuit  and  occupies  two  decimal  storage  locations.  The  transfer 

functions  are  stored  in  the  vectors  according  to  increasing  node 

numbers.  This  method  of  storage  allows  the  transfer  functions  to 
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be  accessed  and  modified  by  the  following  iterative  procedure: 

STEP  1-  Initialization 

a)  Length  of  each  T.F.  vector:  LT=2*0RDER 

b)  Location  of  NODE  in  first  vector:  Il=2*N0DE-l 

c)  Location  of  NODE  in  last  vector:  12=11+ (2NORDR-3)  *LT 

NORDR 

d)  Origin  of  scratch  area  on  file  24:  l=2  *LT 

e)  Subscript  for  FRTAE  vector-  M=0 

f)  Set  index  at  first  vector:  1=11 


STEP  2-  Access  and  Modify  Next  Vector 

a)  Increment  FRTAB  subscript  M=M+1 

b)  Read  transfer  function  from  I,  store  in  X. 

c)  Write  X  to  scratch  area  at  L,  increment  L=L+2. 

d)  If  NODEB=0 ,  go  to  Step  2h. 

e)  Otherwise  locate  NODEE  in  vector:  J=I+ (NODEB-NODE) *2 

f)  Read  transfer  function  from  J,  store  in  Y. 

g)  Calculate  X=X~Y. 

h)  If  component  is  inductor  (RCL=3) ,  calculate  X=X/FRTAB (M) 
Otherwise  go  to  Step  3i. 

i)  Write  X  to  file  24  at  I. 
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STEP  3*  Increment  and  Test  Index 

a)  Increment  I-I+LT  for  next  vector 

b)  If  (I.LE.I2),  more  vectors  remain  to  be  modified.  Go 
to  Step  2. 

c)  Otherwise  modified  transfer  function  table  complete. 

The  nonlinear  current  of  order  NORDR  for  the  nonlinear 
resistor  (RCL=1)  is  defined  as* 


NORDR  NORDR  - 

HK  =  £  CONST  *  ET™  (NODE) 


For  the  nonlinear  capacitor  (PCL=2) : 


HK 


NORDR 
=  £ 
K=2 


CONST  *  S/K  * 


(NODE) 


For  the  nonlinear  inductor  (RCL=3) • 


(NODE) 


where  CONST  is  the  Kth  nonlinear  coefficient  taken  from  the 


NORDR 
HK  =  £ 


CONST 


„NORDR 
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component  description  in  EUFF . 


Subroutine  CURNC  initializes  HK  to  zero,  then  each  symmetric 
transfer  function  expression  F  ^>RDR (node)  for  K=2 , 3  . . .  NORDR  is 
computed  by  subroutine  FNCTN .  After  the  intermediate  calculation 
for  CONST  has  been  performed  depending  on  the  component  type,  the 
product  is  formed  and  accumulated  in  HK. 

Then  the  transfer  function  table  is  restored  by  reading  the 
transfer  functions  saved  in  the  scratch  area  on  file  24  and 
rewriting  them  to  their  original  locations  in  the  table.  The 

procedure  is  similar  to  that  employed  for  modifying  the  transfer 

# 

function  table.  If  the  negative  node  of  connection  is  ground 
(NODEP=G) ,  the  restore  procedure  is  by-passed. 

The  nonlinear  current  is  placed  in  the  current  vector  on 
file  25  by  adding  it  to  the  current  at  NODEE  (for  NODEE^0)  and 
subtracting  it  from  the  current  at  NODE.  The  NODER  current, 
located  at  I=2*NCDEE-1,  is  read  from  file  25  by  subroutine  TFRD 
and  stored  in  X .  HK  is  added  to  X  by  subroutine  CXADD  and  the 
updated  NODEE  current  is  rewritten  to  its  original  location  by 
subroutine  TFWR .  The  procedure  is  repeated  for  the  NODE  current, 
except  that  the  NODE  current  is  located  at  I=2*NCDE-1  and  HK  is 
subtracted  from  X  by  subroutine  CXSUE. 

After  the  nonlinear  currents  have  been  calculated  and  placed 
in  the  current  vector  for  every  component  in  the  data  record, 
subroutine  CURNC  returns  to  the  calling  program. 


4  * 


«  * 
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NAME:  CURNDS 


I 

TYPE*  SUBROUTINE 


GENERAL  PURPOSE: 

(Calculates  nonlinear  current  for  nonlinear 

dependent  sources  and  adds  it  to  the  current  vector 


VARIAPLES- 

A 

AA 

B 

CC 

COEF 

FREQ 

HK 

I 

IMPS 

IMTEL  = 

II 
12 
13 


K 


L 


LT 


Positive  node  of  connection 

T.F.  expression  for  nonlinear  current 

Negative  node  of  connection 

Intermediate  calculation 

Nonlinear  coefficients 

Freouency  combination  vector 

Nonlinear  current 

Record  number  of  node  xx  voltage  (current) 
Impedances 

Impedance  code  table 

Relative  location  of  node  xx  voltage  in  first  T.F. 

Relative  location  of  node  xx  voltage  in  last  T.F. 

Location  of  work  area  on  file  24 

Index  for  summation  of  current  calculation 

Record  number  for  file  24  work  area  and 

index  for  impedance  table 

Length  of  each  T.F.  vector  in  words 
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Index  for  impedance  code  table 

Order  of  impedance 

Maximum  order  of  analysis 

Order  of  analysis 

Angular  frequency 

Sequential  freauency  combination 


MCRCF 


MXOFD 


NOFDR 


SCOMP 


Frequency  combination  vector 


Lower-order  freauency  combination  vector 


SOURCE  =  Type  of  source;  1  =  VC 


Node  YY  voltage  (current) 


Negative  node  of  dependence 


UP ROUTINES  CALLFD 


CXACT 


CXSUE 


DATA PD  FNCTN 


TFPC 


ALL INC  PROCRAMS 


DESCRIPTION 


Subroutine  CUFNDS  calculates  the  nonlinear  currents  for 


nonlinear  dependent  sources  and  places  them  in  the  current 
vector.  Arguments  transmitted  to  the  subroutine  are:  NGRDR,  the 
order  of  the  nonlinear  current  to  be  calculated;  S,  the  angular 
frequency  and  SEC,  the  frequency  combination  vector.  The 
nonlinear  current  is  a  function  of  the  device  coefficients  stored 
in  the  nonlinear  dependent  source  data  record  and  the  node 
voltages  derived  from  the  lower  order  transfer  functions  stored 
on  file  24.  For  current  dependent  sources,  the  nonlinear  current 
also  depends  on  the  impedance  at  the  nodes  of  dependence,  while 
for  voltage  sources,  the  nonlinear  current  depends  on  the 
impedance  at  the  nodes  of  connection.  The  positive  and  negative 
nodes  of  dependence  (XX  and  YY) ,  the  positive  and  negative  nodes 
of  connection  (A  and  E) ,  and  the  type  of  SOURCE  are  stored  in  the 
nonlinear  dependent  source  driver  record  in  global  common. 

First  the  nonlinear  dependent  source  data  record  is  read 
from  file  20  by  subroutine  DATAPC  and  stored  in  the  common  data 
buffer  PUFF.  Then  for  current  dependent  sources  only  (SCUFCE=2 
or  4),  a  table  of  lower  order  secuential  frec-uency  combinations 
is  created  for  each  vector  in  the  transfer  function  table.  The 
method  is  to  recreate  every  lower  order  frecuency  combination 
which  is  a  subset  of  the  frecuency  combination  vector  SEC, 
calculate  the  secuential  frecuency  combination,  and  store  it  in 
the  vector  IPTEL.  The  frequency  combinations  are  recreated  in 
the  same  order  as  the  transfer  function  vectors  were  selected  and 
stored  in  the  transfer  function  table  by  subroutine  COFTPL,  so 
that  the  secuential  frecuency  combination  I'*T?L(I)  corresponds  to 
the  Ith  transfer  function  vector  on  file  24. 
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The  recreation  of  lower  order  frequency  combinations  is 
performed  by  repeated  calls  to  subroutine  UPSEQ  under  the  control 
of  the  integer  variable  MORDF,  which  maintains  the  order  of  the 
combination  being  formed.  The  complete  procedure  for  creating 
the  sequential  frequency  combination  table  is  summarized  as 
follows : 

STEP  1-  Initialization 

a)  Initialize  IVTEL  index  to  L=0 . 

b)  Initialize  maximum  order  of  frequency  combination 
recuired  to  KXORC=KORDP. 

c)  Initialize  nurber  of  frequencies  in  lower  order 
combination  to  FOFDF=0 . 


STEP  2 


Generate  Text  Frequency  Combination 


a)  Call  subroutine  UPSEC  to  generate  next  frequency  com¬ 
bination  vector  in  SECl. 

b)  If  (KOPr-F.LT.NGRCR)  ,  go  to  Step  3. 

c)  Otherwise  seouential  frecuency  combination  table 
complete . 


fTFP  3- 


Test  for  SECl  a  Subset  of  SFC 


a)  If  every  SEQ1(I)  for  1*1,2, .. .MORDR  equals  some  SEQ(J) 
for  J*1 ,2 , . . .NORDR,  go  to  Step  4. 

b)  Otherwise  go  to  Step  2. 

STEP  4:  Calculate  Sequential  Frequency  Combination  and 

Append  to  Table 


a)  Calculate  sequential  frequency  combination  by • 

MDRDR 

SCOMB  =  E  SEQ1(I) 

1=1 

b)  Increment  IMTBL  index  to  L*L+1. 

c)  Append  sequential  frequency  combination  to  table 
by  IMTBL (L) =SCOMB. 

d)  Go  to  Step  2. 

Then  the  node  voltages  for  the  nonlinear  current 

calculations  are  computed  by  replacing  the  transfer  function  at 
node  XX  with  the  difference  between  the  transfer  functions  at 
nodes  XX  and  YY  for  every  vector  in  the  transfer  function  table. 
For  current  dependent  sources  (S0URCE=2  or  4) ,  the  updated 
transfer  function  vector  at  node  XX  is  divided  by  the 

corresponding  impedance  IMPS (IMTBL(M) )  from  the  nonlinear 
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dependent  source  data  record.  This  "modified  transfer  function 
table"  serves  as  the  basis  for  the  nonlinear  current 
calculations.  If  the  negative  node  of  dependence  is  ground 
(YY*0) ,  the  subtraction  of  transfer  functions  is  by-passed. 

The  transfer  function  table  consists  of  fDRDR-2  contiguous 
vectors  beginning  at  record  number  1  on  file  24.  Each  complex 
vector  element  is  the  transfer  function  at  some  node  in  the 
circuit  and  occupies  two  decimal  storage  locations.  The  transfer 
functions  are  stored  in  the  vectors  according  to  increasing  node 
numbers.  This  method  of  storage  allows  the  transfer  functions  to 

9 

be  accessed  and  modified  by  the  following  iterative  procedure: 


STEP  1:  Initialization 


a)  Subscript  for  IMTBL  vector:  M=0. 

b)  Location  of  node  XX  in  first  vector:  Il=2*XX-l. 

c)  Length  of  each  T.F.  vector:  LT* 2* ORDER 

d)  Location  of  node  XX  in  last  vector 
12  =  11+ (2  N3RDR-3)*LT. 

e)  Origin  of  scratch  area  on  file  24:  l*2n3rdr  *LT. 

f)  Impedance  value:  Z=(l.,  0.) 

g)  Set  index  at  first  vector:  1*11. 


i 
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STEP  2:  Access  and  Modify  Next  Vector 


a)  Read  transfer  function  from  I,  store  in  X. 

b)  Increment  IMTBL  subscript  M=M+1 

c)  Write  X  to  scratch  area  at  L,  increment  L=L+2. 

d)  For  current  dependent  sources  (S0URCE=2  or  4) ,  store 
impedance  value  Z=IMPS (IMTBL (M) ) . 

e)  If  node  YY=0,  go  to  Step  2i. 

f)  Otherwise  locate  node  YY  in  vector:  J=I+ (YY-XX) *2 . 

g)  Pead  transfer  function  from  J,  store  in  Y. 

h)  Calculate  X=X-Y 

i)  Calculate  X=X/Z 

j)  Write  X  to  file  24  at  I. 


STEP  3:  Increment  and  Test  Index 


a)  Increment  I=I+LT 

b)  If  (I.LE.I2),  more  vectors  remain  to  be  modified.  Co 
to  Step  2. 

c)  Otherwise  modified  transfer  function  table  complete. 


The  nonlinear  current  of  order  HORDR  for  the  nonlinear 
dependent  sources  is  defined  as- 


HK 


NORDR 
=  £ 
K=2 


OOEF(K)  * 


(XX) 
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Subroutine  CURNDS  initializes  HK  to  zero,  then  each  symmetric 


transfer  function  expression  fMDRDR  (XX)  for  K=2 , 3 , . . . NORDR  is 

K 

computed  by  subroutine  FNCTN,  multiplied  by  the  appropriate 
coefficient  COEF(K),  and  accumulated  in  HK .  For  voltage  sources 
only  (SOUPCE=3  or  4) ,  HK  is  divided  by  the  impedance  at  the  nodes 
of  connection,  Z  =  (1.EE10.,  E.). 

Then  the  transfer  function  table  is  restored  by  reading  the 
transfer  functions  saved  in  the  scratch  area  on  file  24  and 
rewriting  their  to  their  original  locations  in  the  table.  The 
procedure  is  similar  to  that  employed  for  modifying  the  transfer 
function  table.  If  the  negative  node  of  dependence  is  ground 
(YY=G) ,  the  restore  procedure  is  by-passed. 

The  nonlinear  current  is  placed  in  the  current  vector  on 
file  25  by  adding  it  to  the  current  at  the  positive  node  of 
connection  A  (for  A/G)  and  subtracting  it  from  the  negative  node 
of  connection  D  (for  D^E) .  The  node  A  current,  located  at 
I=2*A-1,  is  read  from  file  25  by  subroutine  TFRD  and  stored  in  X. 
FK  is  added  to  X  by  subroutine  CXADD  and  the  updated  node  A 
current  is  rewritten  to  its  original  location  by  subroutine  TFNR. 
The  procedure  is  repeated  for  the  node  E  current,  except  that 
node  P  is  located  at  I=2*P-1  and  UK  is  subtracted  from  X  by 
subroutine  CXSUE.  Subroutine  CURNDS  then  returns  to  the  calling 
program . 
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UNCLASSIFIED 


NAME:  CURPT 


TYPE :  SUBROUTINE 

GENERAL  PURPOSE- 

Calculates  nonlinear  currents  for  vacuum 
pentode  and  places  them  in  the  current  vector 


VARIABLES- 

A 

CNT 

COEF 

FACT 

FNK 

FP 

FREQ 

FREQC  = 

F2 

G 

H 

I 


IHIGH  = 


T.F.-  expression  for  nonlinear  current 
Frequency  permutation  counter 
Intermediate  calculation  for  nonlinear 
current 

Accumulator  for  N! 

Subscripts  generated  by  subroutine  FUN 
Nonlinear  coefficients 
Frequency  combination  vector 
Permuted  frequency  combination  vector 
Nonlinear  coefficients 
Nonlinear  coefficients 
Nonlinear  coefficients 

Record  number  of  base  node  voltage  (current) 
index  for  outer  summation  of  current 
calculation 

Pelative  location  of  NOFF  in  last  T.F. 
vector 
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—  p.i 


I  LOW 

INC 

IP 

I  SWF 
I  SWT 
12 
13 
J 

JNIC 

L 

LT 

LI 

L2 

L3 

MU 

N 

NODE 

NOPDR 

PROD 

ec 

p 

PJC 


Relative  location  of  NODE  in  first  T.F. 
vector 

Einomial  coefficient  for  I,N 
Nonlinear  current 

Control  variable  for  subroutine  FRPRM 

Control  variable  for  subroutine  FUN 

Nonlinear  current 

Location  of  work  area  on  file  24 

Index  for  inner  summation  of  current 

calculation 

Trinomial  coefficient  for  J,  N-I 

Index  for  CO  vector.  Record  number  for  file 

24  work  area. 

Length  of  each  T.F.  vector  in  words 
Subscript  for  coefficient  calculation 
Subscript  for  coefficient  calculation 
Subscript  for  coefficient  calculation 
Input  value 

Order  of  T.F.  expression 
Ease  node  of  connection 
Order  of  analysis 

Sum  of  T.F.  products  returned  by  subroutine 
CROSS 

Node  pattern  of  T.F.  expression 

Index  for  inner  summation  of  coefficient 

expression 

Einomial  coefficient  for  P,J 
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Index  for  outer  summation  of  coefficient 


expression 

SIC  *  Binomial  coefficient  for  S,I 

SP  =  Coefficient  expression  fdr  IP 

S2  =  Coefficient  expression  for  12 

TERM  =  Intermediate  calculation  for  coefficient 
expression 

X  =  Base  node  voltage  (current) 

XX  =  Angular  frequency 

XI  =  (Ease+1)  node  voltage  (current) 

X2  =  (Base+2)  node  voltage  (current) 

X3  =  (Base+3)  node  voltage  (current) 

SUBROUTINES  CALLED* 

CROSS  CXADD  CXSUB  DATARD 

FRPRM  FUN  TFRD  TFWF 

CALLING  PROGRAMS* 

PHASE 3 

DESCRIPTION : 

Subroutine  CURPT  calculates  the  nonlinear  currents  for  the 
vacuum  pentode  and  places  them  in  the  current  vector.  Arguments 
transmitted  to  the  subroutine  are:  NORDR ,  the  order  of  the 

nonlinear  current  to  be  calculated  and  XX,  the  angular  frequency. 
The  nonlinear  currents  are  functions  of  the  device  parameters  and 
coefficients  calculated  in  Phase  1  and  the  node  voltages  derived 
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from  the  lower  order  transfer  functions  stored  on  file  24.  The 

-v  /- 

base  node  of  connection,  NODE,  is  stored  in  the  vacuum  pentode 
driver  record  in  global  common.  The  remaining  nodes  are  numbered 
sequentially  by  the  system  as  NODE+1 ,  NODE+2,  and  NODE+3. 

First  the  vacuum  pentode  data  record  is  read  from  file  20  by 
subroutine  EATARD  and  stored  in  the  common  data  buffer  EUFF. 
Then  the  node  voltages  for  the  nonlinear  current  calculations  are 
computed  for  each  vector  in  the  transfer  function  table  as 
follows:  the  transfer  function  at  NODE  is  replaced  with  the 
difference  between  the  transfer  functions  at  NODE  and  NODE+3; 
the  transfer  function  at  NODE+1  is  replaced  with  the,  difference 
between  the  transfer  functions  at  NODE+1  and  NODE+3;  and  the 
transfer  function  at  NODE+2  is  replaced  with  the  difference 
between  the  transfer  functions  at  NODE+2  and  NODE+3.  This 
"modified  transfer  function  table"  serves  as  the  basis  for  the 
nonlinear  current  calculations. 

NORDR 

The  transfer  function  table  consists  of  2  -2  contiguous 
vectors  beginning  at  record  number  1  on  file  24.  Each  complex 
vector  element  is  the  transfer  function  at  some  node  in  the 
circuit  and  occupies  two  decimal  storage  locations.  The  transfer 
functions  are  stored  in  the  vector  according  to  increasing  node 
numbers.  Because  the  vacuum  pentode  nodes  are  numbered 
sequentially , .  the  corresponding  transfer  functions  occupy 
successive  elements  in  each  vector.  This  method  of  storage 
allows  the  transfer  functions  to  be  accessed  and  modified  by  the 
following  iterative  procedure- 
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STEP  lr  Initialization 

a)  Location  of  NODE  in  first  vector:  ILOW=2*NODE-l . 

b)  Length  of  each  T.F.  vector:  LT=2*0RDER. 

c)  Location  of  NODE  in  last  vector: 

NORDR 

IHIGH  =  I LOW  +  (2  -3)  *  LT 


d)  Origin  of  scratch  area  on  file  24:  i3=2NORDR*LT 

e)  Set  index  to  first  vector:  I=ILOW. 


STEP  2:  Access  and  Modify  Next  Vector 

a)  Read  transfer  functions  for  sequential  device  nodes 
beginning  at  I,  store  in  X,  XI,  X2,  and  X3. 

b)  Write  device  voltages  to  scratch  area  at  L, 
increment  L  =  L  +  2. 

c)  Calculate  X=X-X3,  X1=X1-X3,  and  X2=X2-X3. 

d)  Write  updated  transfer  functions  to  file  24 
beginning  at  I. 

STEP  3:  Increment  and  Test  Index 

a)  Increment  I=I+LT. 

b)  If  (I.LE. IHIGH) ,  more  vectors  remain  to  be  modified. 
Go  to  Step  2. 

c)  Otherwise  modified  transfer  function  table  complete. 
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The  nonlinear  currents  of  order  NORDR  for  the  vacuum  pentode 
are  defined  as* 


NDRDR  N  N-I  'N  \  W 

=  z  z  z  ±.  i  N  )  r  x 


12  =  Z  Z  Z 
N=2  1=0  J=0 


i.  (;)(?)■*.! 


NDDE+ 1 ,  NDDE+2  ] 


where  S2NfIfJis 


®Vi  j  ^  ^  G(I-S+1)  H ( J-R+S+l)  MU1*  ^  F2(N-I-J+1,R+1) 

'  '  S=MAX  R=0  \i}/\K>' 


S=MAX  R=0 

(1=1,0) 


NDRDR  N  N-I 

IP  =  E  Z  Z 

N=2  1=0  J=0 


l  n  (?)(*?)  -W.I.J  *?"*  osa: 


NDDE+1, NDDE+2] 


where  SPN,i,jis: 


SPN  I  J  =  ^  ^  ( s)  (  r)  Gd-S+D  H( J-R+S+l)  FP(N-I-J+1,R+1) 

^  ^  S=  R=0  ' 


S=  R=0 
MAX (1-1,0) 
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Because  the  nonlinear  currents  for  the  vacuum  pentode  are 

functions  of  the  voltages  at  three  nodes,  the  Q  function  of 

subroutine  CFN  cannot  be  used.  Subroutine  CURPT  contains  its  own 

0  function  to  determine  the  pattern  of  node  voltages  to  be 

multiplied  together  to  form  one  term  of  the  symmetric  transfer 

NORDR  _ . _ ^ 

function  expression  FN  0 (NODE ,N0DE+1 ,N0BE+2) .  Subroutine  CURVT 
apportions  the  relative  node  numbers  to  the  integer  vector  QQ  so 
that  each  product  in  the  symmetric  transfer  function  expression 
contains  exactly  N  lower  order  voltages  where  the  first  I  are 
from  the  base  NODE,  the  next  J  are  from  NODE+2,  and  the  remaining 
N- ( I+J)  are  from  NODE+1 • 


QQ-  ( 1  > » »  -J-  >  3 , 3  .  .  3 , 2,2,.  *  .2) 

I  J  N- ( I+J) 

Voltages  Voltages  Voltages 


Subroutine  FNCTN,  which  is  used  to  calculate  the  terms  of 
the  symmetric  transfer  function  expressions  for  NCAP's  other 
nonlinear  devices,  calls  subroutine  QFN  and  therefore  cannot  be 
be  used  directly  for  the  vacuum  pentode.  However,  the  algorithm 
of  subroutine  FNCTN  does  apply  to  the  pentode's  nonlinear 
currents  and  is  implemented  directly  as  a  part  of  subroutine 
CURPT.  The  algorithm  uses  subroutine  FUN  to  determine  the  orders 
of  the  voltages  in  each  product,  subroutine  FRPP.M  to  permute  the 
frequency  combination,  and  subroutine  CROSS  to  access  the 
voltages  in  the  modified  transfer  function  table  and  to  form  the 
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voltage  product  for  a  single  frequency  permutation.  The  complete 
algorithm  used  by  subroutine  CURPT  to  calculate  the  nonlinear 


currents  of  order  NORDR  is  summarized  as  follows 


Initialize  Summation  Over  N 


a)  Clear  nonlinear  currents  12=0.  and  IP=0 


b)  Initialize  N!  accumulator  to  FACT=1 


STEP  2 


Initialize  Summation  Over  I 


a)  Accumulate  N!  in  FACT 


t>)  Set  index  at  1=0 

,N. 

c)  Initialize  accumulator  for  'j'  to  INC=1 


Initialize  Summation  Over  J 


a)  Set  index  at  J=E 


to  JNIC=1 


NORDR 

STEP  4:  Initialize  Algorithm  for  F^ 


a)  Calculate  coefficient  expressions  S2  and  SP 

b)  Initialize  sum  of  symmetric  voltage  products  to  A=0, 

c)  Initialize  FUN  algorithm  by  ISWT=-1 

d)  Establish  node  pattern  in  CO  vector 


STEP  5*  Initialize  for  one  Additive  Term  of  F 


NORDR 


a)  Initialize  FFPRM  algorithm  by  ISWF=-1 
d)  Clear  frequency  permutation  count  to  CNT=0. 

c)  Initialize  symmetric  accumulator  to  PROD=0 . 

d)  Call  subroutine  FUN  to  determine  pattern  of  voltage 
orders,  return  orders  in  FNK  vector. 


STEP  6:  Accumulate  Products  over  all  Permutations 


a)  Increment  permutation  count  CNT=CNT+1. 

b)  Call  subroutine  FPPPM  to  create  frequency  permutation, 
return  in  FFECC  vector 

c)  Call  subroutine  CROSS  to  calculate  voltage  product  for 
given  permutation,  add  to  PROD 

a)  If  (ISVJF=0)  ,  more  permutations  remain-  go  to  Step  6a. 


3-58N 


Otherwise  permutations  complete.  Go  to  Step  7. 


7- 


,  NORDR 
Test  for  Fn  at  I, 


J  Complete 


a)  Average  over  all  permutations ,  add  symmetric  product 
to  A  ■ 

A  =  A  +  PROD/CNT 

b)  If  (ISWT=0) ,  more  symmetric  products  remain  to  be  cal¬ 
culated.  Go  to  Step  5. 

NORDR 

c)  Otherwise  FN  complete.  Accumulate  current  terms 
according  to: 

12'-  12  +  i  (N)  (N_I)  *  S2  *  A 

n:  lr  1  j  ' 

ip  =  ip  +  I  A  A1)  *  sp  *  a 

n:  'r  1  j  ' 

8-  Increment  and  Test  Summation  Over  J 

a)  Accumulate  (N_I)  in  JNIC 

J 

b)  Increment  J=J+1 

c)  If  ( J . LE . (N-I) ) ,  go  to  Step  4.  Otherwise  summation 
over  J  complete.  Go  to  Step  9. 


STEP  9 


Increment  and  Test  Summation  over  I 


a)  Accumulate  (N)  in  INC 

b)  Increment  1=1+1 

c)  IF  (I.LE.N),  go  to  Step  3.  Otherwise  summation 
over  I  complete.  Go  to  Step  10. 


STEP  10-  Increment  and  Test  Summation  over  N 


a)  Increment  N=N+1 

b)  If  (N.LE.NOFDR) ,  go  to  STEP  2.  Otherwise  nonlinear 
currents  complete. 

The  coefficient  expressions  S2  and  SP  are  also  calculated  by 
an  iterative  process,  summarized  as  follows- 

» 

STEP  1:  Initialize  Summation  over  S 

a)  Set  index  at  S=MAX(I-1,0) 

b)  Initialize  accumulator  for ^  to  SIC=S+1 

c)  Clear  coefficient  expressions  S2=0.  and  SP=0. 
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'H  0 


■ 


STEP  2- 

Initialize  summation  ovgj-  r 

a) 

Set  index  at  P=0 

b) 

Initialize  accumulator  for  to  RJC=1 

STEP  3- 

Accumulate  Coefficient  Terms 

a) 

Calculate 

S2  S2  +  [g^|  Rj  G (I-S+l)  H(J-R+S+1)MJ^"*^  F2(N-I-J+1,R+1) 

b) 

Calculate 

SP  =  SP  +  (s)(r)  G(I-S+1)  H ( J— R+S+l)  MU^-"7  FP  (N-I-J+1,R+1) 

STEP  4  ■ 

- Increment  and  Test  Summation  over  R 

a) 

Accumulate  in  RJC 

b) 

Increment  R=R+1 

c) 

If  (R.LE.J) ,  go  to  Step  3.  Otherwise  summation 
over  R  complete,  go  to  Step  5. 
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Increment  and  Test  Summation  over  S 


a)  Accumulate  (g)  in  SIC 

b)  Increment  S=S+1 

c)  If  (S.LE.I),  go  to  Step  2.  Otherwise  coefficient 
expression  complete. 

Then  the  transfer  function  table  is  restored  by  reading  the 
transfer  functions  saved  in  the  scratch  area  on  file  24  and 
rewriting  them  to  the  original  locations  in  the  table.  The 
procedure  is  similar  to  that  employed  for  modifying  the  transfer 
function  table. 

The  nonlinear  currents  are  placed  in  the  current  vector  on 
file  25  by  subtracting  12  from  the  current  at  NODE+1 ,  subtracting 
IP  from  the  current  at  NODE+2 ,  and  adding  12  and  IP  to  the 
current  at  NODE+3.  The  current  elements  for  the  sequential 
vacuum  pentode  nodes,  beginning  at  I=2*N0EE-1,  are  read  from  file 
25  by  subroutine  TFPD  and  stored  in  X,  XI,  X2,  and  X3.  12  and  IP 

are  subtracted  from  XI  and  X2  respectively  by  subroutine  CXSUP. 
12  and  IP  are  added  to  X3  by  subroutine  CXADD .  The  updated 
current  vector  elements  are  rewritten  to  their  original  locations 
by  subroutine  TFWF  and  subroutine  CUFPT  returns  to  the  calling 
program. 


NAME:  CUKSD 

TYPE:  SUBROUTINE 

GENERAL  PURPOSE: 

Calculates  nonlinear  current  for  semiconductor 
diode  and  places  it  in  the  current  vector 


VARIABLES • 

A 

C2 

D 

FREQ 

GAMMA  = 
HKC 

I 

II 
12 
13 

J  = 

K 

KS 

L 

LT 

NODE 

NODEB  * 


T.F.  expression  for  nonlinear  current 
Nonlinear  coefficients 
Intermediate  calculation 
Frequency  combination  vector 
Nonlinear  coefficients 
Nonlinear  current 

Record  number  of  NODE  voltage  (current) 

Relative'  location  of  NODE  in  first  T.F. 

Relative  location  of  NODE  in  last  T.F. 

Location  of  work  area  on  file  24 

Record  number  of  NODEP  voltage 

Index  for  summation  of  current  calculation 

Nonlinear  coefficients 

Record  number  for  file  24  work  area 

Length  of  each  T.F.  vector  in  words 

Positive  node  of  connection 

Negative  node  of  connection 
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NCFDR  =  Order  of  analysis 

S  =  Angular  frequency 

X  =  NODE  voltage  (current) 

Y  =  NODEP  voltage  (current) 

SUBROUTINES  CALLED- 

CXADD  CXSUP  DATA PD  FNCTN 

TFPD  FTWF 

CALLING  PROGRAMS: 

PHASE 3 

J 

DESCRIPTION • 

Subroutine  CURSE-  calculates  the  nonlinear  current  for  the 
semiconductor  diode  and  places  it  in  the  current  vector. 
Arguments  transmitted  to  the  subroutine  are:  NORDR ,  the  order  of 
the  nonlinear  current  to  be  calculated,  and  S,  the  angular 
freouency.  The  nonlinear  current  is  a  function  of  the  device 
coefficients  and  parameters  calculated  in  Phase  1  and  the  node 
voltages  derived  from  the  lower  order  transfer  functions  storec 
on  file  24.  The  positive  and  negative  nodes  of  connection,  NOD 
and  NODEP,  are  stored  in  the  semiconductor  diode  driver  record  i 
global  common. 

First  the  semiconductor  diode  data  record  is  read  from  filt 
20  by  subroutine  DATARD  and  stored  in  the  common  data  buffer 
FUFF.  Then  the  node  voltages  for  the  nonlinear  current 
calculations  are  computed  by  replacing  the  transfer  function  at 
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NODE  with  the  difference  between  the  transfer  functions  at  NODE 

and  NODEE  for  every  vector  in  the  table.  This  "modified  transfer 

function  table"  serves  as  the  basis  of  the  nonlinear  current 

calculations.  If  the  negative  node  of  connection  is  ground (NODEE 

=0) ,  modification  of  the  transfer  function  table  is  by-passed. 

NDRDR 

The  transfer  function  table  consists  of  2  -2  contiguous 

vectors  beginning  at  record  number  1  on  file  24.  Each  complex 
vector  element  is  the  transfer  function  at  some  node  in  the 
circuit  and  occupies  two  decimal  storage  locations.  The  transfer 
functions  are  stored  in  the  vectors  according  to  increasing  node 
numbers.  This  method  of  storage  allows  the  transfer  functions  to 
he  accessed  and  modified  by  the  following  iterative  procedure  - 

STEF  1  Initialization 

a)  Length  of  each  T.F.  vector-  LT=2*CFCEP 

b)  location  of  .NODE  in  first  vector  .  Il  =  2*l7CrE-l 

c)  Location  of  t’CEE  in  last  vector-  12  =  11+ (2M3RDR -3)  *LT 

d)  Origin  of  scratch  area  on  file  24.  i=2N3RDR  *LT 

e)  Set  index  at  first  vector:  1=11 

STEP  2  -  Access  and  f-’odify  Next.  Vector 

a)  read  transfer  function  from  I,  store  in  X. 

b)  V’rite  X  to  scratch  area  at  L,  increment  L=L+2 
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c)  Locate  NODEB  in  vector:  J=I+ (NODEB-NODE) *2 

d)  Read  transfer  function  from  J,  store  in  Y. 

e)  Calculate  X=X-Y  and  write  to  file  24  at  I. 


STEP  3:  Increment  and  Test  Index 

a)  Increment  I=I+LT  for  next  vector. 

t>)  If  (I.LE.I2),  more  vectors  remain  to  be  modified.  Go 
to  Step  2. 

c)  Otherwise  modified  transfer  function  table  complete. 


calculation  is  performed  for  D,  the  product  is  formed  and 
accumulated  in  HKG . 

Then  the  transfer  function  table  is  restored  by  reading  the 
transfer  functions  saved  in  the-  scratch  area  on  file  24  and 
rewriting  them  to  their  original  locations  in  the  table.  The 
procedure  is  similar  to  that  employed  for  modifying  the  transfer 
function  table.  If  the  negative  node  of  connection  is  ground 
(NODEB*0) ,  the  restore  procedure  is  by-passed. 

The  nonlinear  current  is  placed  in  the  current  vector  on 
file  25  by  adding  it  to  both  the  current  at  NODEB  (for  NODEB^0) 
and  the  current  at  NODE.  The  NODEB  current,  located  at 
I=2*N0DEB-1,  is  read  from  file  25  by  subroutine  TFRD  and  stored 
in  X.  HKG  is  added  to  X  by  subroutine  CXADD  and  the  updated 
NODEB  current  is  rewritten  to  its  original  location  by  subroutine 
TFWR .  The  procedure  is  repeated  for  the  NODE  current  located  at 


I=2*NODE-l,  and  subroutine  CURSD  returns  to  the  calling  program. 


i 

-L 


!  NTUU2E 
I  F.  TABLE 

MonnunoM 


;  ACCUMULATE  1 
|  CURRENT  TERMS 
'  FOR  HK  t  HCM  1 


II 

+  1 
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NAME-  CUPT 


TYPE:  SUBROUTINE 

GENERAL  PURPOSE- 

Calculates  nonlinear  currents  for  bipolar  junction 
transistor  and  places  them  in  current  vector 

VARIABLES : 

A  =  T.F.  expression  for  nonlinear  current 

ALPHA  =  Nonlinear  coefficients 

P  =  Intermediate  calculation  for  HG 

C  =  Intermediate  calculation  for  HG 

C2NL  =  Nonlinear  current 

D  =  Intermediate  calculation  for  C2NL 

FREQ  =  Frequency  combination  vector 

GAMMA  =  Nonlinear  coefficients 

HC  =  Nonlinear  coefficients 

HG  =  Nonlinear  current 

PGM  =  Nonlinear  current 

FK  =  Nonlinear  current 

HM  =  Nonlinear  coefficients 

ICHMO  =  Nonlinear  parameter 

I  =  Record  number  of  NODE  voltage  (current) 

II  =  Relative  location  of  NODE  in  first  T.F. 

12  *  Relative  location  of  NODE  in  last  T.F. 
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13 

K 

L 

KS 

LT 

M 

NODE 

NOPDP 

S 

SCO 

SIGN 

SNCS 

X 

XI 
X2 
X3 


Location  of  work  area  on  file  24 
Index  for  outer  summation  of  current 
calculation 

Record  number  for  file.  24  work  area 

Nonlinear  coefficients 

Length  of  each  T.F.  vector  in  words 

Index  for  inner  summation  of  current 

calculation. 

Base  node  of  connection 

Order  of  analysis 

Angular  frequency 

Nonlinear  parameter 

Sign  of  HGM  current  terms 

Nonlinear  parameter 

Base  node  voltage  (current) 

(Ease+1)  voltage  (current) 

(Base+2)  voltage  (current) 

(Pase+3)  voltage  (current) 


SUBROUTINES  CALLED 

BETA  CXADD  CXMPY  CXSUP 

DATAPD  FNCTN  TFRD 

TFWR 


CALLING  PROGRAMS: 
PHASE 3 
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DESCRIPTION- 


Subroutine  CURT  calculates  the  nonlinear  currents  for  the 
Dipolar  junction  transistor  and  places  them  in  the  current 
vector.  Arguments  transmitted  to  the  subroutine  are:  NORDR,  the 
order  of  the  nonlinear  currents  to  be  calculated,  and  S,  the 
angular  frequency.  The  nonlinear  currents  are  functions  of  the 
device  parameters  and  coefficients  calculated  in  Phase  1  and  the 
node  voltages  derived  from  the  lower  order  transfer  functions 
stored  on  file  24.  The  base  node  of  connection,  NODE,  is  stored 
in  the  transistor  driver  record  in  global  common.  The  remaining 
nodes  are  sequentially  numbered  by  the  system  as  N0DE+1#,  NODE+2, 
and  NODE+3 . 

First  the  transistor  data  record  is  read  from  file  20  by 
subroutine  DATARD  and  stored  in  the  common  data  buffer  BUFF. 
Then  the  node  voltages  for  the  nonlinear  current  calculations  are 


computed 

for 

each  vector  in 

the 

transfer 

function 

table  as 

follows • 

The 

transfer  function 

at 

NODE  is 

replaced 

by  the 

difference  between  the  transfer  functions  at  NODE+2  and  NODE- 
the  transfer  function  at  NODE+2  is  replaced  by  the  difference 
between  the  transfer  functions  at  NODE+2  and  NODE+1 :  and  the 
transfer  function  at  NODE+1  is  replaced  by  the  difference  between 
the  transfer  functions  at  NODE+1  and  NODE+3.  This  "modified 
transfer  function  table"  serves  as  the  basis  for  the  nonlinear 
current  calculations. 

The  transfer  function  table  consists  of  2?*-)RDR  -2  contiguous 
vectors  beginning  at  record  number  1  on  file  24.  Each  complex 
vec’ror  element  is  the  transfer  function  at  some  node  in  the 


3-60G 


circuit  and  occupies  two  decimal  storage  locations.  The  transfer 

functions  are  stored  in  the  vectors  according  to  increasing  node 

numbers.  Because  the  transistor  nodes  are  numbered  sequentially, 

# 

the  corresponding  transfer  functions  occupy  successive  elements 
in  each  vector.  This  method  of  storage  allows  the  transfer 
functions  to  be  accessed  and  modified  by  the  following  iterative 
procedure : 


STEP  1:  Initialization 

a)  Length  of  each  T.F.  vector-  LT=2*0PDER 

b)  Location  of  NODE  in  first  vector-  I1=2*N0DE-1 

c)  Location  of  NODE  in  last  vector:  12=11+ (2lORDR  -3) *LT 

d)  Origin  of  scratch  area  on  file  24 •  L  =  2N0RDR  *  LT 

e)  Set  index  at  first  vector:  1=11 

STEP _2‘ ...  Access  and  Modify  Next  Vector 

a)  Read  transfer  functions  for  sequential  device  nodes 
beginning  at  I,  store  in  X,  XI,  X2,  and  X3 

0)  Write  device  voltages  to  scratch  area  at  L, 
increment  L=L+2 

C)  Calculate  X=X 2-X ,  X2=X2-X1,  and  X1=X1-X3 

d)  Write  updated  transfer  function  to  file  24  beginning 
at  I 
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STEP  3-  Increment  and  Test  Index 

a)  Increment  I=I+LT 

b)  if  (I.LE.I2),  more  vectors  remain  to  be  modified.  Go 
to  Step  2. 

c)  Otherwise  modified  transfer  function  table  complete. 


The  nonlinear  currents  of  order  NORDR  for  the  bipolar 
junction  transistor  are  defined  as: 

HK  =  E  KS  (K)  *  fJt"14  (NODE  +  2) 

K=2  K 


NDRDR  _NDRDR  - 

HGM  =  E  S  *  GAM4MK)  *  (NODE  +  3) 

K=2  K 


NDRDR  K  „  NDRDR  K  - 

HG  =  E  E  K)  *  EV  <T.  (NODE  +  2,  NODE  +  1) 

K=2  M=0  ^  K  M 


NORDR 

C2NL  =  E 
K=2 


D  *  (NODE  +  1) 
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where  D»S*HC (2) *KS (K-l)/K.  Subroutine  CURT  initializes  HK,  HGM, 

HG,  and  C2NL  to  zero.  Then  the  symmetric  transfer  function 
NORDR  _  NORDR  _ 

expressions  Fr  (NODE+2)  and  Ffc  (NODE+3)  for  K*2 , 3 , . . .NORDR 

are  computed  by  subroutine  FNCTN >  multiplied  by  the  appropriate 

coefficients  KS(K)  or  S*GAMMA(K),  and  accumulated  in  HK  and-  HGM 

respectively.  Then  the  symmetric  transfer  function  expression 

F  NORDR  0K  (NODE+2 ,  NODE+1)  for  K=2,3,,..  NORDR  and  M=0,1,...K 
K  M 

is  computed  by  subrouting  FNCTN.  Subroutine  BETA  is  called  to 
K 

compute  Bm  and  the  product  is  formed  and  accumulated  in  HG.  The 

NORDR  _ 

symmetric  transfer  function  expression  Fk  (NODE+1)  is 

identical  to  the  expression  for  HG  evaluated  at  M=0.  The 
intermediate  calculation  for  D  is  performed  and  the  product  is 
formed  and  accumulated  in  C2NL . 

Then  the  transfer  function  table  is  restored  by  reading  the 
transfer  functions  saved  in  the  scratch  area  on  file  24  and 
rewriting  them  to  the  original  locations  in  the  table.  The 
procedure  is  similar  to  that  employed  for  modifying  the  transfer 
function  wable. 

The  nonlinear  currents  are  placed  in  the  current  vector  on 
file  25  by  adding  HG  and  HGM  to  the  current  at  NODE+1,  adding  HK 
and  C2NL  to  the  current  at  NODE+3,  subtracting  HK  and  C2NL  from 
the  current  at  NODE+1,  and  subtracting  HG  and  HCM  from  the 
current  at  NODE+2.  The  current  elements  for  the  sequential 
transistor  nodes,  beginning  at  I=2*N0DE-1,  are  read  from  file  25 
by  subroutine  TFRD  and  stored  in  X,  XI,  X2,  and  X3.  HG  and  HGM 
are  added  to  XI  and  HK  and  C2NL  added  to  X3  by  subroutine  CXADD. 


HK  and  C2NL  are  subtracted  from  XI  and  HG  and  HGM  are  subtracted 
from  X2  by  subroutine  CXSUB.  The  updated  current  vector  elements 
are  rewritten  to  their  original  locations  by  subroutine  TFWR  and 
subroutine  CURT  returns  to  the  calling  program. 
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NAME-  CURVD 


TYPE-  SUPROUTINE 

GENERAL  PURPOSE: 

Calculates  nonlinear  current  for  vacuum 
diode  and  places  it  in  the  current  vector 

VARIAELES • 

A  =  T.F.  expression  for  nonlinear  current 

FREC  =  Frequency  combination  vector 

UK  =  Nonlinear  current 

I  =  Record  number  of  NODE  voltage  (current) 

II  =  Pelative  location  of  NODE  in  first  T.F. 

12  *  Pelative  location  of  NODE  in  last  T.F. 

13  =  Location  of  work  area  on  file  24 

J  =  Record  number  of  NODEP  voltage 

K  =  Index  for  summation  of  current  calculation 

KS  =  Nonlinear  coefficients 

I  =  Record  number  for  file  24  work  area 

LT  =  Length  of  each  T.F.  vector  in  words 

NODE  =  Positive  node  of  connection 

NODFF  =  Negative  node  of  connection 

NCPDF  =  Order  of  analysis 

S  =  Angular  freauency 

/  =  NODE  voltage  (current) 


Y  =  NODEB  voltage  (current) 

SUBROUTINES  CALLED: 

CXADD  CX SUE  DATARD  FNCTN  TFRD 

TFWR 

CALLING  PROGRAMS : 

PHASE3 

DESCRIPTION* 

Subroutine  CUFVD  calculates  the  nonlinear  current  for  the 
vacuum  diode  and  places  it  in  the  current  vector.  Arguments 
transmitted  to  the  subroutine  are.-  NORDR,  the  order  of  the 
nonlinear  current  to  be  calculated,  and  S,  the  angular  frequency. 
The  nonlinear  current  is  a  function  of  the  device  coefficients 
calculated  in  Phase  1  and  the  node  voltage  derived  from  the  lower 
order  transfer  functions  stored  on  file  24.  The  positive  and 
negative  nodes  of  connection  NODE  and  NCDEF  are  stored  in  the 
vacuum  diode  driver  record  in  global  common. 

First  the  vacuum  diode  data  record  is  read  from  file  2?  by 
subroutine  DATARD  and  stored  in  the  common  data  buffer  BUFF. 
Then  the  node  voltages  for  the  nonlinear  current  calculations  are 
computed  by  replacing  the  transfer  function  at  NCDF  with  the 
difference  between  the  transfer  functions  at  NODE  and  NCDEF  for 
every  vector  in  the  table.  This  "modified  transfer  function 
table"  serves  as  the  basis  for  the  nonlinear  current 
calculations .  If  the  negative  node  of  connection  is  ground 
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(NODEP=P) ,  modification  of  the  transfer  function  table  is 
by-passed . 

NORDR 

The  transfer  function  table  consists  of  2  -2  contiguous 

vectors  beginning  at  record  number  1  on  file  24.  Each  complex 
vector  element  is  the  transfer  function  at  some  node  in  the 
circuit  and  occupies  two  decimal  storage  locations.  The  transfer 
functions  are  stored  in  the  vectors  according  to  increasing  node 
numbers.  This  method  of  storage  allows  the  transfer  functions  to 
be  accessed  and  modified  by  the  following  iterative  procedure: 

STEP  1-  Initialization 

a)  Length  of  each  T.F.  vector:  LT=2*0RDER 

b)  Location  of  NODE  in  first  vector-  I1=2*N0DE-1 

NORDR 

c)  Location  of  NODE  in  last  vector:  12=11+ (2  -3)*LT 

NORDR 

d)  Origin  of  scratch  area  on  file  24:  L=2  *LT 

e)  Set  index  at  first  vector:  1=11 

STEP  2: _ Access  and  Modify  Next  Vector 

a)  Read  transfer  function  from  I,  store  in  X. 

b)  Krite  X  to  scratch  area  at  L,  increment  L=L+2. 

c)  Locate  NOD EE  in  vector:  J=I+ (NODEB-NODE) *2 . 

d)  Read  transfer  function  from  J,  store  in  Y. 

e)  Calculate  X=X-Y  and  write  to  file  24  at  I. 


STEP  3: 


Increment  and  Test  index 


a)  Increment  I=I+LT  fo.r  .next  vector. 

b)  If  (I.LE.I2),  more  vectors  remain  to  be  modified. 

Go  to  Step  2. 

c)  Otherwise  modified  transfer  function  table  complete. 


The  nonlinear  current  of  order  NORDR  for  the  vacuum  diode  is 
defined  as: 


NORDR 
HK  =  E 
K=2 


(NODE) 


Subroutine  CURVE  initializes  HK  to  zero,  then  each  symmetric 

NORDR  - 

transfer  function  expression  FR  (NODE)  for  K=2 , 3 , . . .NORDR  is 
computed  by  subroutine  FNCTN,  multiplied  by  the  appropriate 
coefficient  KS(K),  and  accumulated  in  HK. 

Then  the  transfer  function  table  is  restored  by  reading  the 
transfer  functions  saved  in  the  scratch  area  on  file  24  and 
rewriting  them  to  their  original  locations  in  the  table.  The 
procedure  is  similar  to  that  employed  for  modifying  the  transfer 
function  table.  If  the  negative  node  of  connection  is  ground 
(NODEB=e)  ,  the  restore  procedure  is  by-passed. 


The  nonlinear  current  is  placed  in  the  current  vector  on 
file  25  by  subtracting  it  from  the  current  at  NODEE  (for  NODEB 
)  and  adding  it  to  the  current  at  NODE.  The  NODEB  current, 
located  at  I=2*NODEE-l,  is  read  from  file  25  by  subroutine  TFRD 
and  stored  in  X.  HK  is  subtracted  from  X  by  subroutine  CXSUB  and 
the  updated  NCDEE  current  is  rewritten  to  its  original  location 
by  TFWF.  The  procedure  is  repeated  for  the  NODE  current,  except 
that  NODE  is  located  at  I=2*NODE-l  and  HK  is  added  to  X  by 
subroutine  CX£DD.  Subroutine  CURVD  then  returns  to  the  calling 
program . 
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NAME:  CURVT 


TYPE:  SUBROUTINE 

GENERAL  PURPOSE* 

Calculates  nonlinear  current  for  vacuum 
triode  and  places  it  in  the  current  vector 

VARIABLES: 

A  *  T.F.  expression  for  nonlinear  current’ 

FREQ  =  Frequency  combination  vector 
G  =  Nonlinear  parameter 

GP  =  Nonlinear  parameter 

H  =  Nonlinear  coefficients 

HG  =  Nonlinear  current 

I  =  Record  number  of  NODE  voltage  (current) 
IFACT  *  Accumulator  for  binomial  coefficient 

II  =  Relative  location  of  NODE  in  first  T.F. 

12  *  Relative  location  of  NODE  in  last  T.F. 

13  *  Location  of  work  area  on  file  24 

K  *  Index  for  outer  summation  of  current 

calculation 

L  *  Record  number  for  file  24  work  area 

LT  *  Length  of  each  T.F.  vector  in  words 

M  «  Index  for  inner  summation  of  current 


calculation 


MU  =  Input  value 

NOPE  *  Base  node  of  connection 

NORDR  =  Order  of  analysis 

0  =  Intermediate  calculation 

S  =  Angular  frequency 

X  =  Base  node  voltage  (current) 

XI  =  (Ease+1)  voltage  (current) 

X2  =  (Base+2)  voltage  (current) 


SUEPOUTINES  CALLED- 

CXADD  CXSUB  DATARD  FNCTN 

TFRD  TFWF 


CALLING  PROGRAMS: 
PHASE3 


DESCRIPTION- 

Subroutine  CURVT  calculates  the  nonlinear  current  for  the 
vacuum  triode  and  places  it  in  the  current  vector.  Arguments 
transmitted  to  the  subroutine  are:  NORDR,  the  order  of  the 
nonlinear  current  to  be  calculated,  and  S,  the  angular  frequency. 
The  nonlinear  current  is  a  function  of  the  device  parameters  and 
coefficients  calculated  in  Phase  1  and  the  node  voltages  derived 
from  the  lower  order  transfer  functions  stored  on  file  24.  The 
base  node  of  connection,  NODE,  is  stored  in  the  vacuum  triode 
driver  record  in  global  common.  The  remaining  nodes  are 
sequential ly  numbered  by  the  system  as  NODE+1  and  NODE+2. 
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First  the  vacuum  triode  data  record  is  read  from  file  20  by 
subroutine  DATARD  and  stored  in  the  common  data  buffer  BUFF. 
Then  the  node  voltages  for  the  nonlinear  current  calculations  are 
computed  as  follows*  the  transfer  function  at  NODE  is  replaced 
by  the  difference  between  the  transfer  functions  at  NODE  and 
NODE+2  for  every  vector  in  the  table  and  the  transfer  function  at 
NODE+1  is  replaced  by  the  difference  between  the  transfer 
functions  at  NODE+1  and  NODE+2  divided  by  the  input  parameter  MU 

for  every  vector  in  the  table.  This  "modified  transfer  function 

# 

table"  serves  as  the  basis  for  the  nonlinear  current 
calculations . 

NDRDR 

The  transfer  function  table  consists  of  2  -2  contiguous 

vectors  beginning  at  record  number  1  on  file  24.  Each  complex 
vector  element  is  the  transfer  function  at  some  node  in  the 
circuit  and  occupies  two  decimal  storage  locations.  The  transfer 
functions  are  stored  in  the  vectors  according  to  increasing  node 
numbers.  Because  the  vacuum  triode  nodes  are  numbered 
seouentially ,  the  corresponding  transfer  functions  occupy 
successive  elements  in  each  vector.  This  method  of  storage 
allows  the  transfer  functions  to  be  accessed  and  modified  by  the 
following  iterative  procedure: 


STEP  1*  Initialization 


a)  Length  of  each  T.F.  vector;  IT=2*0RDER 

r>)  Location  of  NCrF  in  first  vector*  I1  =  2*N0DE-1 
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c)  Location  of  NODE  in  last  vector:  12=11+ (2N3RDR  -3) *LT 
cl)  Origin  of  scratch  area  on  file  24*  L  =  *  LT 

e)  Set  index  at  first  vector-  1=11 


STEP 


STEP 


2-  Access  ctnd  Modify  Next  Vector 

a) ;  Read  transfer  functions  for  secuential  device  nodes 

beginning  at  I,  store  in  X,  XI,  and  X2. 

b)  Write  device  voltages  to  scratch  area  at  L, 
increment  L=L+2 

c)  Calculate  X=X-X2  and  Xl= (X1-X2) /MU 

d)  Write  updated  transfer  functions  to  file  24  beginning 
at  I 

3-  Increment  and  Test  Index 

a)  Increment  I=I+LT 

b)  If  (I.LE.LT),  more  vectors  remain  to  be  modified.  Go 

to  Step  2. 

c)  Otherwise  modified  transfer  function  table  complete. 


The  nonlinear  current  of  order  KCPCF  for  the  vacuum  triode 


is  defined  as- 


..  ■  ■  >-w^.  -w. 


NDRDR  K 

HG  =  Z  Z 

K=2  M=0 


°M,K  *  [NODE  +  1,  NODE  +  2] 


where  D  =(  m)  (K-M) *GP*H (K) /K+G*H (K+l ) .  Subroutine  CURVT 

initializes  HG  to  zero,  then  each  symmetric  transfer  function 

expression  FroRDR  C*K  [NOCE+1,  NODE+2]  for  K=2,3,...  NORDR  and 
K  M 

f'=fl,l...K  is  computed  by  subroutine  FNCTN .  After  the 

intermediate  calculations  are  performed  for  E  m,K  *  the  binomial 

coefficient  (K)  is  accumulated  in  IFACT,  and  the  product  is 
M 

formed  and  accumulated  in  HG . 

Then  the  transfer  function  table  is  restored  by  reading  the 
transfer  functions  saved  in  the  scratch  area  on  file  24  and 
rewriting  them  to  the  original  locations  in  the  table.  The 
procedure  is  similar  to  that  employed  for  modifying  the  transfer 
function  table. 

The  nonlinear  current  is  placed  in  the  current  vector  on 
file  25  by  subtracting  it  from  the  current  at  NODE+1  and  adding 
it  to  the  current  at  NODE+2.  The  current  elements  for  the 
sequential  vacuum  triode  nodes,  beginning  at  I=2*N0DE-1 ,  are  read 
from  file  25  by  subroutine  TFRD  and  stored  in  X,  Xl,  and  X2.  HG 
is  subtracted  from  XI  by  subroutine  CXSUB  and  added  to  X2  by 
subroutine  CXADD ..  The  updated  current  elements  are  rewritten  to 
their  original  locations  by  subroutine  TFWR  and  subroutine  CURVT 
returns  to  the  calling  program. 
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NAME-  FNCTN 

TYPE-  SUBROUTINE 

GENERAL  PURPOSE- 

Calculates  the  symmetrized  transfer  function  expression 

N  K  _ 

F  Q  (11,12-) 

K  M 

for  use  by  the  nonlinear  current  generator 
subroutines 

VARIABLES: 

CNT  =  Frequency  permutation  counter 

FNK  *  Subscripts  calculated  in  subroutine  FUN 

FREC  =  Frequency  combination  vector 

FREQC  =  Permuted  frequency  combination  vector 

ISWF  =  Control  variable  for  subroutine  FPPRM 

ISWT  =  Control  variable  for  subroutine  FUN 

K  =  Length  of  FNK  vector 

K  =  Number  of  nodes  12  in  node  pattern 

N  =  Order  of  T.F.  expression 

0  =  Node  pattern  of  T.F.  expression 

U  =  Location  of  nonlinearity  relative  to  base 

node 
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V  =  Location  of  dependence  relative  to  base  node 

XX  =  Calculated  symmetr ized  T.F.  expression 

YY  =  Sum  of  T.F.  products  calculated  in 

subroutine  CROSS 

SUBROUTINES  CALLED- 

CROSS  FRPRM  FUN  PTIME  QFN 

TIMOUT 

CALLING  PROGRAMS- 

CUR JF  CURNC  CURNDS  CURSD  CURT 

CUPVD  CURVT 

DESCRIPTION- 

For  given  N,  K  and  M  subroutine  FNCTN  calculates  the 

expression  F  ^  [C  ^  (U,V)],  which  is  a  sum  of  symmetric  products 
K  M 

of  voltages  from  the  modified  transfer  function  table  used  in 
calculating  nonlinear  currents  during  Phase  3. 

A  nonlinear  current  is  a  function  of  the  voltage  across  the 
nonlinearity  as  well  as  the  voltage  at  some  other  node  in  the 
circuit.  A  nonlinear  current  of  order  N  can  be  expressed  as  a 
power  series  in  voltage  at  two  nodes,  U  and  V: 

(£1'V--V  *  J2  £  KSK(H  t  <£  (D.V)  1 


3-63E 


The  KS's  are  functions  of  the  Taylor  series  coefficients 
calculated  in  Phase  1.  F^  [Q^  (u,  V)]  is  a  sum  of  products  of  K 
lower  order  voltages  from  the  modified  transfer  function  table. 
Each  product  has  the  following  general  form: 


.K-M  Voltages  M  Voltages 


The  function  (U,  V)  determines  the  pattern  of  node  voltages  U 
and  V  so  that  each  transfer  function  product  contains  K  voltages, 
where  the  first  K-M  voltages  are  from  node  U  and  the  remaining  M 
voltages  are  from  node  V.  The  function  F ^  determines  the  order 
of  each  transfer  function  in  the  product  so  that  p1  +p 2  +  ... 

p  =N.  The  overbar  depicts  the  symmetry  of  the  product, 
achieved  by  averaging  over  the  N!  possible  permutations  of  the  N 
input  frequencies. 

For  example,  a  third  order  nonlinear  current  is  given  by: 

3  K  - 

I3(f.,f,,f,)  =  E  Z  KSKM  FK  tQM  (U'V)  ] 

1  ^  J  K=2  M=0  ' 

*  L  “Xo  PK  tQ0  (U'V)1  +  PK  t0l  <U'V)1  +  •" 

+  ksk,k  4  [=E  (u'v)1 
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Rather  than  expanding  the  expression  completely,  consider  the 
current  component  at  K=2- 


1'S 


2,0  2 


Ff  [<£  (u, v)  ]  + 


KS2,1F2 


[Q7  (u,v)]  + 


^2,2  F2 


[Qo  (u,v)] 


Each  F  3  represents  a  sum  of  products  of  first  and  second  order 
voltages.  The  nodes  from  which  the  voltages  are  derived  are 
determined  by  the  C  function  where  0  ^  represents  Jthe  node 
pattern  UU,  represents  VU ,  and  ^  represents  W.  Together 
the  two  functions  produce  the  following  additive  terms; 


3 

2 

(U rV)  ]  =  ^U1+ULU2 

F2 

100 

3 

f2 

2 

[Oi 

(U,V)  ]  =  v2  U]_+  \  u2 

3 

2 

(U,V)]  =  v2  vx+  ^  v2 

f2 

[  Q  2 

The  symmetry  of  each  product,  depicted  by  the  overbar,  is 
achieved  by  averaging  over  all  the  32=6  possible  permutations  of 
the  three  input  frequencies.  Let  the  six  permutations  be 
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represented  by: 


(fl' 

V 

f3> 

(fl, 

f  3 ' 

f2> 

(f2. 

fl' 

f3> 

<v 

f  2  ' 

fl> 

<V 

V 

f2} 

(f3' 

f2  ' 

fl) 

Then  the  symmetric  product  U2U1  is 

r[D(£l'  V°',f3>  +  °(^  •  t3)U,f2)  *  0(V  \  )V((3  >  + 

u(f  7  f3)U(f1)  +  U  ( fj  ,  )  u  (^  )  +  U  ( f  3  ,  £  )U(^  )] 

The  symmetric  product  is: 

|  [U(fx  )U(f2  ,f3)  +  U(^  )u(f3  ,f2)  +  U(f  )U(^ 

U(f  )U(f  ,f  )  +  U(f  )  U  ( f  ,f  )  +  U(f  )U(f 
2  3  1  3  1  2  3  2 

+  V ( f  ,  f  )U(f  )  + 

2  1  3 

+  V(f  ,  f  )U(f  )  J 

3  2  1 


The  symmetric  product  *s 


i  [V(f  ,  f  )U(f  )  +  V(f  ,  f  )U(f  ) 


1  2 


1  3 


v(f  ,  f 3 ) u ( )  +  V(f  ,  ^  )U(f2  ) 
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'V  + 


The  symmetric  product  v  u  is* 

1  2 


y[v(t11°(f2  'f3>  +  V«LHJ(*3  ,f2)  +v(^)u(^,f3j  + 

V(f2)U,f3'fl>  +  V(f3  )U(eL  ,E2)  +  V(^  )U(£,  ,fl)] 


The  symmetric  product  V  V  is- 

2  X 


S[V(fi'  f2,V<f3>  +  v<\  •  f3  >v<f2  >  +  V(f2,  f  )V(f3  )  + 

V(f2,  f3)  V(£1)  +  V(f3  ,  ^>V(f2>  +  V(f3,  £  )V(^  )] 


The  symmetric  product  V  V  is* 

1  2 


i[v(fi)V(f2  ,f3)  +  V(f.  )V(f3  ,f2)  +  V(f  )V(f  ,f  )  + 

V(f  2>V(f3  'V  +  V<f3  )V(fl  'f2J  +  V(f3  )V(f2  J 


The  nonlinear  current  component  at  K=3  is  derived 
similar  fashion* 


KS3'0  F  3  fC  0  (U'  V,J  +  KS3'1  F3  (Ci  <U'  VH  + 

KS  i2  F3  [C  2  (U'  V,J  +  KS3'3  F3  f03  V)  ] 

where  each  F  represents  a  product  of  three  first  order 
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voltages.  The  nodes  from  which  the  voltages  are  derived  are 

determined  by  the  Q  function  where  C  g  represents  the  node 

3  3 

pattern  UUU,  Cl  represents  VUU,  C3  represents  VVU,  and  Ci 

2  0 

represents  VW.  Together  the  two  "functions  produce  the  following 
additive  terms r 

3  — 1 

F  3  [Q  o  (U,  V)  ]  ■ 

F  3  [0  i  (U,  V)  ]  = 

F  3  [0  j  (U,  V)]  =  Vj^Uj. 

3  '  3 

F  3  [0  3  (U,  V)  ]  =  Vx 

Some  nonlinear  currents  are  functions  of  the  voltage  at  a 
single  node.  In  this  case  M=  0  and  the  current  expression 
reduces  to: 

V  “l'V-V  =  j2  FK  w 

Subroutine  FNCTN  calculates  one  additive  term  [cjj  (U,V)] 

of  the  nonlinear  current  expression  for  given  N,  K,  and  M. 
Arguments  transmitted  to  the  subroutine  are-  N,  the  order  of  the 
current  being  calculated;  K,  the  number  of  voltages  in  each 
transfer  function  product-  M,  the  number  of  voltages  from  node  V 


*  0 


in  each  product •  U  and  V,  the  nodes  from  which  the  voltages  are 
derived  (relative  to  the  base  node  of  the  nonlinear  device) *  and 
FPEC,  the  frequency  combination  vector.  The  calculated  term  is 
returned  to  the  calling  program  in  XX. 

Subroutine  FNCTN  uses  subroutine  CFN  to  determine  the  node 
pattern  returned  in  the  integer  vector  Q,  subroutine  FUN  to 
determine  the  orders  of  the  transfer  functions  returned  in  the 
vector  FNK,  and  subroutine  FRPRM  to  produce  the  frequency 
permutations  returned  in  the  integer  vector  FREQC.  Subroutine 
CPCSS  is  called  to  access  the  voltages  in  the  modified  transfer 
function  table  and  to  form  the  voltage  product  for'  a  single 
frequency  permutation. 

The  algorithm  used  by  subroutine  FNCTN  to  calculate  the  term 

F  N  [0  K  (U,  V)]  is  summarized  as  follows: 

K  M 

STEP  1 • 


a)  Clear  expression  to  XX=0. 

b)  Initialize  FUN  algorithm  by  ISWT=-1 

K 

c)  Call  subroutine  QFN  to  generate  Cm  (U»  V) •  return  node 
pattern  in  C  vector. 

STFP  2- 


a)  Initialize  FPPPN  algorithm  by  ISWF=-1 
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b)  Clear  frequency  permutation  count  CNT=0. 

c)  Initialize  symmetric  product  YY=0. 

d)  Call  subroutine  FUN  to  generate  orders  of  transfer  func¬ 
tions  for  one  term  of  FN  ;  return  orders  in  FNK  vector. 

K 

STEP  3: 

a)  Increment  permutation  count  CNT=CNT+1. 

b)  Call  subroutine  FRPRM  to  create  a  frequency  permutation: 
return  permutation  in  FREQC  vector. 

c)  Call  subroutine  CROSS  to  calculate  product  for  this 
frequency  permutation  and  add  product  to  YY 

d)  If  more  permutations.  (ISWF=0) ,  go  to  Step  3a. 

e)  If  permutations  complete  (ISWF=1),  go  to  Step  4. 

STEP  4- 

a)  Calculate  symmetric  product  and  add  to  expression- 

XX=XX+YY/CNT 

b)  If  more  F ^  terms  (ISWF=0) ,  go  to  Step  2b. 

K 

c)  If  F^  complete  (ISV7F=1)  ,  exit  with  calculated  expres- 

lx 

sion  in  XX. 
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(frprm) 


UPFRQ 


4* 
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NAME-  FFPRN 

TYPE-  SUBROUTINE 

CFNEEAL  PURPOSE- 

Generates  a  freauency  permutation  for  use  by 
subroutine  FNCTN 


VARIABLES- 

FPEC  =  The  integers  I  thru  10 

FPEOC  =  Permuted  freouency  combination  vecto^r 

ISVf  =  Control  switch-  -1  =  Initialize  algorithm 

0  =  Continue  algorithm 

1  =  Algorithm  complete 

N  =  Number  of  frequencies  to  be  permuted 

SEC  =  Work  vector 

SUBROUTINES  CALLFE- 

l 

NONE 

CALLING  P ROC PANS • 

CUPPT  FNCTN 

DESCRIPTION: 

Subroutine  FPPFN  generates  frequency  permutations  for  use  by 
subroutine  FNCTN.  Arguments  transmitted  to  the  subroutine  are: 
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N,  the  number  of  frequencies  to  be  permuted:  FFFC,  the 

seouential  freouency  numbers  to  be  permuted;  and  IFF,  a  control 
variable  described  below.  Arguments  returned  to  the  calling 
program  are:  FRECC,  the  permuted  freouency  vector  and  IFF,  the 
updated  control  variable. 

In  order  to  generate  every  possible  permutation  of  F 
frequency  numbers,  subroutine  FFPRtf  must  be  invoked  N!  times. 

These,  iterative  calls  to  subroutine  FFPRM  are  controlled  by  the 
integer  variable  ISF,  which  is  initialized  to  -1  by  the  calling 
program,  tested  and  updated  in  FRPRM,  then  retested  in  the 
calling  program.  ISF=-1  initializes  the  algorithm  of  subroutine- 
FRPRM  by  creating  the  first  permutation  of  order  N  in  the  work 
vector  SEC.  When  I5F=G,  subroutine  FFPRK  transfers  the 

permutation  from  the  work  vector  to  FPFCC  and  then  generates  the 
next  permutation  in  SEC/  saving  it  in  the  labelled  common  area 
PR’-'FL.  ISF  is  set  to  1  when  the  last  permutation  has  been 
genet  ated . 

The  freouency  permutations  generated  by  subroutine  FPPPM  are  ' 
stored  in  the  first  N  elements  of  the  integer  vector  SEC.  Each 
element  of  the  vector  is  numerically  equal  to  the  sequential 
freouency  number  it  represents.  The  largest  freouency  that  a\  y 
vector  element  can  contain  is  ” .  Subroutine  FFFFM  ignores 
rermutations  in  which  a  freouency  number  appears  more  than  once. 

Freouency  permutations  are  generated  recursively  by 

subroutine  FFFFF.  The  first  peri  utetior  of  “  frecuer.cies  is 
defined  to  be  the  orders  ’  set  cf  inters rs  (1,  which  is  *  f 

renereted  in  the  work  vector  by 
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rrc(i)=i  for  1=1,  2,.  .  . N 

Pccf  successive  perrutation  of  otcer  N  is  derived  fror.  the 
rrevicus  SEC  vector  according  to  the  following  algorithm: 

STEP  1  Initialize  Mgorithr  at  FEC(F) 

a)  Fct  FFC  subscript  to  J=F. 

FTFP  2  ,  Update  and  Test  FEC(J)  • 

a)  define  SCO ( J) =SFC ( J) +1 

b)  If  (FEC (J) .GT.T) ,  this  value  too  large  for  SEC(J).  Go 
to  Ftep  3. 

c)  If  (FEC(J)  .LF.D  ,  this  value  O.K.  for  SEC(J).  Go  to 
Ftep  A. 

FTFF  3-  Redefine  CrC(J),  Update  and  Test  J 

a)  Set  EEC ( J) =1 

b)  recrement  FTC  subscript  J=J-1 

c)  If  (J.CT.F),  go  to  Ftep  2.  Ctherwise  algorithm 
complete . 
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Step  4  •.  Test  SEQ  for  Uniqueness 

a)  If  SEO(I)  *SE0(J)  for  any  I  and  J  ’(I*J)  ,  go  to  Step  1. 

b)  Otherwise  algorithm  complete. 

£  tabulation  of  all  frequency  permutations  for  every  order 
up  to  K=6  (the  largest  order  allowed  in  KCAP)  is  presented  below: 


n  =  2 


n  =  4 


FREQC  FREQC 


MO. 

1 

2 

3 

4 

5 
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NO. 

t 

2 

3 

4 

5 

6 

1 

1 

2 

0 

0 

0 

0 

1 

1 

2 

3 

4 

0 

0 

2 

2 

T 

0 

0 

0 

0 

2 

1 

2 

4 

3 

0 

0 

3 

1 

3 

2 

4 

0 

0 

4 

1 

3 

4 

2 

0 

0 

- 

5 

1 

4 

2 

3 

0 

0 

6 

1 

4 

3 

2 

0 

0 

7 

2 

1 

3 

4 

0 

0 

8 

2 

1 

/ 

3 

'o 
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• 

9 

2 

3 

1 

4 

0 

0 

10 

2 

3 

4 

1 

0 

0 

1  1 

2 

4 

1 

3 

0 

0 

12 

2 

4 

3 

1 

0 

0 

13 

3 

1 

2 

4 

0 

0 

n  = 

3 

14 

3 

1 

4 

2 

0 

0 

15 

3 

2 

1 

4 

0 

0 

FR 

o 

c 

U! 

16 

3 

2 

4 

1 

0 

0 

NO. 

1 

2 

3 

4 

5 

6 

17 

3 

4 

l 

2 

0 

0 

111 

18 

3 

4 

2 

1 

0 

0 

1 

1 

2 

3 

0 

0 

0 

19 

4 

1 

2 

3 

0 

0 

2 

3 

1 

2 

3 

1 

2 

3 

0 

0 

0 

0 

0 

0 

20 

21 

4 

4 

1 

2 

3 

1 

2 

3 

0 

0 

0 

0 

4 

5 

2 

3 

3 

1 

1 

2 

0 

0 

0 

0 

0 

0 

22 

23 

4 

4 

2 

3 

3 

1 

1 

2 

0 

0 

0 

0 

6 

3 

2 

t 

0 

0 

0 

24 

4 

3 

2 

1 

0 

0 
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n  =  5 


► 


FREQC 


NO. 

l 

2 

3 

4 

5 

6 

1 

1 

2 

3 

4 

5 

0 

2 

1 

2 

3 

5 

4 

0 

3 

1 

2 

4 

3 

5 

0 

4 

l 

2 

4 

5 

3 

0 

5 

1 

2 

5 

3 

4 

0 

6 

1 

2 

5 

4 

3 

0 

7 

1 

3 

2 

4 

5 

0 

8 

3 

2 

5 

4 

0 

9 

1 

3 

4 

2 

5 

0 

10 

1 

3 

4 

5 

2 

0 

1 1 

1 

3 

5 

2 

4 

0 

12 

1 

3 

5 

4 

2 

0 

13 

1 

4 

2 

3 

5 

0 

14 

1 

4 

2 

5 

3 

0 

15 

1 

4 

3 

2 

5 

0 

16 

1 

4 

3 

5 

2 

0 

17 

1 

4 

5 

2 

3 

0 

18 

1 

4 

5 

3 

2 

0 

19 

1 

5 

2 

3 

4 

0 

20 

1 

5 

2 

4 

3 

0 

21 

1 

5 

3 

2 

4 

0 

22 

1 

5 

3 

4 

2 

0 

23 

1 

5 

4 

2 

3 

0 

24 

1 

5 

4 

3 

2 

0 

25 

2 

1 

3 

4 

5 

0 

26 

2 

1 

3 

5 

4 

0 

27 

2 

1 

4 

3 

5 

0 

28 

2 

1 

4 

5 

3 

0 

29 

2 

1 

5 

3 

4 

0 

30 

2 

1 

5 

4 

3 

0 

31 

2 

3 

1 

4 

5 

0 

32 

2 

3 

1 

5 

4 

0 

33 

2 

3 

4 

1 

5 

0 

34 

2 

3 

4 

5 

1 

0 

35 

2 

3 

5 

1 

4 

0 

36 

2 

3 

5 

4 

1 

0 

37 

2 

4' 

1 

3 

5 

0 

38 

2 

4 

1 

5 

3 

0 

39 

2 

4 

3 

1 

5 

0 

40 

2 

4 

3 

5 

1 

0 

41 

2 

4 

5 

1 

3 

0 

42 

2 

4 

5 

3 

1 

0 

43 

2 

5 

1 

3 

4 

0 

44 

2 

5 

1 

4 

3 

0 

45 

2 

5 

3 

1 

4 

0 

46 

2 

5 

3 

4 

1 

0 

47 

2 

5 

4 

1 

3 

0 

48 

2 

5 

4 

3 

1 

0 

49 

3 

1 

2 

4 

5 

0 

50 

3 

1 

2 

5 

4 

0 

51 

3 

1 

4 

2 

5 

0 

52 

3 

1 

4 

5 

2 

0 

53 

3 

1 

5 

2 

4 

0 

54 

3 

1 

5 

4 

2 

0 

55 

3 

2 

1 

4 

5 

0 

56 

3 

2 

1 

5 

4 

0 

57 

3 

2 

4 

1 

5 

0 

58 

3 

2 

4 

5 

1 

0 

59 

3 

2 

5 

1 

4 

0 

60 

3 

2 

5 

4 

1 

0 

FREQC 

NO.  I  2  3  4  5  6 


61  3  4  12  5  0 

62  3  4  15  2  0 

63  3  4  2  15  0 

64  3  4  2  5  10 

65  3  4  5  12  0 

66  3  4  5  2  1  0 

67  3  5  12  4  0 
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NAME-  LCCTF 


TYPE:  FUNCTION 


GENERAL  PURPOSE: 

Calculates  file  24  record  number  of  a  modified  transfer 
» 

function  vector  of  specified  order  and  frecuency  combination 


VAPIACLES : 


C 

PROS 

I 

J 

I. 

M 

N 


SEC 


=  Number  of  T.F.  vectors  of  order  I  in  table 
=  Frecuency  combination  vector 
=  Sequential  frecuential  number 
=  Subscript  for  frequency  number  vector 
=  Intermediate  storage 
=  Order  of  T.F.  being  accessed 
=  Order  of  analysis  (length  of  frecuency 
vector) 

=  Intermediate  frecuency  combination  vector 


SUBROUTINES  CALLED- 


UPFRC 


CALI  INC  PRCGFAf'S  ■ 


cross 


DESCRIPTION* 


Function  LCCTF  calculates  the  file  24  address  of  the 
modified  transfer  function  vector  of  a  specified  order  and 
frequency  combination  for  use  in  computing  nonlinear  currents  in 
Phase  3.  Arguments  transmitted  to  the  function  are-  N,  the 
order  of  the  nonlinear  current  being  computed-  M ,  the  order  of 
the  transfer  function  vector  being  accessed;  and  FRQS ,  the 
frequency  combination  of  the  transfer  function  vector  being 
accessed.  The  calculated  address  is  returned  to  the  calling 
program  in  LCCTF. 

During  the  calculation  of  Nth  order  nonlinear  currents,  the 
transfer  function  table  contains  2  n  -2  lower-order  transfer 
function  vectors.  These  vectors  are  stored  according  to 
increasing  freojency  combinations  in  the  order  they  were  created 
in  Phase  3.  The  address  of  a  particular  vector  is  a  function  of 
its  order  and  frequency  combination,  and  can  be  calculated  by 
finding  the  address  of  the  first  vector  of  like  order  and  adding 
a  displacement  factor  based  on  the  frequency  combination  of  the 
desired  vector. 

There  are  exactly  (  ^  )  transfer  function  vectors  of  each 
order  1=1,  2,...N  in  the  table.  Therefore  the  first  vector  of 
order  M  is  located  at  • 

M-l 

LOCTF  =  1  +  E 
1=1 
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The  frequency  combination  corresponding  to  this  vector  is  the 
ordered  set  of  sequential  frequency  numbers  (1,2,...M).  This 

frequency  combination  is  created  in  the  first  M  elements  of  the 
integer  vector  SEC.  Each  element  of  SEC  is  numerically  equal  to 
the  frequency  number  it  represents  and  the  frequencies- are  stored 
in  the  vector  so  that  they  decrease  numerically  as  the  subscript 
of  SEC  increases. 

The  displacement  factor  is  added  to  LOCTF  by  successively 
updating  the  frequency  combination  while  at  the  same  time 
incrementing  LOCTF.  Subroutine  UPFRC  updates  the  frequency 
combination.  When  the  calculated  frequency  combination  matches 
FFCS,  the  frequency  combination  of  the  desired  transfer  function 
vector,  then  LOCTF  contains  the  desired  address. 

For  first  order  transfer  function  vectors,  the  d’esired 
address  is  equal  to  the  sequential  frequency  number.  The 
algorithm  for  calculating  the  address  of  higher  order  vectors  is 
summarized  as  follows* 

STEP  1*  Initialization 

a)  Set  sequential  frequency  number  to  1=1 

b)  Initialize  SEC  subscript  to  J=P" 

c)  Clear  address  by  LOCTF=0 

d)  Initialize  number  of  vectors  of  order  I  to  C=1 


STEP  2- 


Locate  First  Vector  of  Order  I,  Generate 


_ _ Corresponding  Frequency  Combination  in  SEQ 

a)  Store  sequential  frequency  number  SEQ(J)=I 

b)  Update  address  by  LOCTF=LOCTF+C 

c)  Calculate  number  of  vectors  of  order  I  by  C=C*L/I 

d)  Increment  order  to  1=1+1 

e)  Decrement  SEQ  subscript  to  J=J-1 

f)  If  (J.GT.B),  frequency  combination  not  complete.  Go 
to  Step  2a. 

g)  Otherwise  LOCTF  contains  address  of  first  transfer 
function  vector  of  order  M.  Corresponding  frequency 
combination  is  complete  in  SEQ.  Go  to  Step  3. 


STEP  3  •  Compare  Desired  Frequency  Combination  to  SEQ 

a)  If  each  FRCS  element  equal  some  SEQ  element,  algorithm 
complete.  Exit  with  desired  address  in  LOCTF. 

b)  Otherwise  go  to  Step  4. 
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STEP  4:  Update  Frequency  Combination  dnd  Address 


a)  Call  subroutine  UPFRQ  to  generate  next  frequency  com 
bination 


b)  Increment  address  to  LOCTF=LOCTF+l 


NAME?  CFN 

TYPE-  SUBROUTINE 

CENEFAL  PURPOSE- 

Calculdtes  the  function 

K 

0  (U,V) 

M 

for  use  by  subroutine  FNCTN 

VARIABLES • 

K  =  Length  of  Q  vector 

M  =  Number  of  nodes  V  in  0  vector 

0  =  Pattern  of  nodes  U  and  V 

U  =  Location  of  nonlinearity  relative  to  base 

node 

V  =  Location  of  dependence  relative  to  base  node 

SUBROUTINES  CALLED- 
NONE 

CALLING  PROGRAMS- 
FNCTN 
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DESCRIPTION: 


Subroutine  CFN  calculates  the  function  (U,  V)  which 

determines  the  pattern  of  node  voltages  for  each  transfer 

function  product  computed  in  subroutine  FNCTN.  Arguments 

transmitted  to  the  subroutine  are:  K,  the  number  of  voltages  in 

the  transfer  function  product:  K,  the  number  of  voltages  from 

node  V  in  the  product-  U  and  V,  the  nodes  from  which  the 

voltages,-  are  derived  (relative  to  the  base  node  of  the  nonlinear 

device).  The  node  pattern  is  returned  to  the  calling  program  in 

the  integer  vector  C* 

K 

The  function  CM  (U,  V)  insures  that  each  transfer  function 
product  calculated  by  subroutine  FNCTN  contains  K  voltages,  where 
the  first  K-M  voltages  are  derived  from  node  U  and  the  remaining 
M  voltages  are  derived  from  node  V.  The  node  pattern  is  stored 
in  the  first  K  elements  of  the  integer  vector  0  such  that  the 
first  K-M  elements  are  equal  to  U  and  the  remaining  elements 

are  equal  to  V- 

C  =  (U,  U,  .  .  .U,V, . V) 


K-M  m 
elements  elements 

The  integers  U  and  V  represent  the  locations  of  the  voltages 
in  each  transfer  function  relative  to  the  base  node  of  the 
nonlinear  device.  The  base  node  is  represented  by  1  in  the  C 
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NAME:  SSCODE 

TYPE:  SUBROUTINE 


GENERAL  PURPOSE- 

Decodes  a  sequential  frequency  combination  into  component 
seauential  frequency  numbers  and  stores  cor  responding 
user-assigned  frequency  numbers.  Constructs  frequency 
combination  code.  Calculates  angular  frequency. 

VARIAP.LES  • 

FREO  =  Freauency  values 

FRTPL  =  Frecuency  number  table; 

Subscript  *  Sequential  frequency  number 
Value  =  User  assigned  frequency  number 
J  =  User-assigned  freouency  number  vector 

K  =  Bit  position  and  subscript  for  frequency  table 

L  =  Shift  register  for  bit  manipulation 

M  =  Intermediate  storage  for  k-th  bit  of 

combination 

V  =  Number  of  frequencies  in  combination  and 

subscript  for  frequency  number  vector 
S  =  Angular  frequency 

SCCDE  =  Frequency  combination  code 


SCGMF  =  Sequential  freouency  combination 
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SUBROUTINES  CALLED: 


NONE 

CALLING  PROGRAMS: 

CONTRL 

DESCRIPTION: 

Subroutine  SSCODE  decodes  a  sequential  frequency  combination 
into  its  component  sequential  frequency  numbers,  stores  the 
corresponding  user-assigned  frequency  numbers,  constructs  the 
frequency  combination  code,  and  calculates  the  angular 'frequency. 
Arguments  transmitted  to  subroutine  SSCODE  are:  the  sequential 

frequency  combination,  SCOMB;  the  frequency  number  table,  FRTBL; 
and  the  frequency  values  FREQ.  Arguments  returned  to  the  calling 
program  are:  the  user-assigned  frequency  numbers  in  the 

combination,  J;  the  number  of  frequencies  in  the  combination,  N; 
the  calculated  angular  frequency,  S;  and  the  frequency 
combination  code,  SCODE. 

The  relationship  between  the  sequential  frequency 
combination  and  the  frequency  combination  code  is  that  if  the  Kth 
sequential  frequency  is  in  the  combination  (i.e.,  the  Kth  bit  of 
SCOMB  is  1),  then  the  user-assigned  frequency  number  FRTBL (K)  is 
to  be  included  in  the  code  (i.e.,  the  FRTBL (K)th  bit  of  SCODE  is 
1) .  Similarly  the  Kth  frequency  value,  FREQ(K) ,  is  included  in 
the  angular  frequency,  S,  if  the  Kth  sequential  frequency  appears 
in  the  frequency  combination. 

The  method  employed  by  subroutine  SSCODE  is  to  extract  each 
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sequential  frequency  number  from  SCOME  and,  using  the  frequency 
number  table  FPTBL,  to  combine  the  corresponding  user-assigned 
frequency  numbers  and  values  into  the  frequency  combination  code 
and  angular  frequency.  The  sequential  frequency  numbers  are 
extracted  from  the  combination  by  using  a  simulated  shift 
register  L,  which  is  initially  loaded  with  the  sequential 
frequency  combination  SCCMB.  A  frequency  number  is  extracted 
from  SCOMB  by  shifting  the  right-most  bit  from  the  register  into 
the  integer  variable  M.  At  the  same  time,  the  integer  K 
maintains  a  count  on  the  bit  position  being  examined. 

If  the  Kth  bit  is  set  (M=l) ,  then  the  Kth  user-assigned 
frequency  number  is  saved  by  J(N)  =  FRTBL(K),  the  FRTBL (K) th  bit 
of  the  frequency  combination  code  is  set  to  1,  and  FREC(K)  is 
added  to  the  angular  frequency.  The  calculations  are  complete 
when  the  shift  register  is  empty. 

The  complete  algorithm  of  subroutine  SSCCDE  is  summarized  as 
follows • 

STEP  1:  Initialization 

a)  Frequency  count:  N=1 

b)  Bit  position  counter*  K=0 

c)  Load  shift  register*  L=SCOMB 

d)  Angular  frequency:  S=0 

e)  Frequency  combination  code*  SCGDE=0 
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STEP  2  •  Extract  and  Store _Kth  bit  of  Sequential  Combination 

a)  Increment  bit  position  count  K=K+1 

b)  Shift  right-most  bit  from  register  and  store  in  M: 

M=L 

L=L/2 

M=M-L*2 

c)  Save  user-assigned  frequency  number  J (N) =FRTBL (K)  and 
increment  frequency  count  by  N=N+M 

STEP  3-  Map  Kth  Pit  to  SCOPE  and  S 

a)  Set  FPTEL (K) th  bit  of  frequency  combination 
code  according  to  value  of  Mr 
SCCCE  =  SCODE  +  2  **  (FRTBL(K)  -1)  *  M 

D)  Unclude  Kth  frequency  value  in  angular  frequency 
according  to  value  of  Mr 
S  ~  S  +  FFEO(K)  *  FLOAT (M) 

STEP  4-  Test  Shift  Register 

a)  If  L=P  (shift  register  empty) ,  frequency  combination 
code  is  complete.  Go  to  Step  5. 
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d)  Otherwise  go  to  Step  2. 


STEP  5 •  Complete  Angular  Frequency  Calculation 

a)  Multiply  angular  frequency  by  2 

b)  Decrement  frequency  count  N»K-1 

c)  Exit 
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SYRACUSE  UNIV  N  T  F/6  9/5 

NONLINEAR  CIRCUIT  ANALYSIS  PROGRAM  (NCAP)  DOCUMENTATION.  VOLUME— ETC (U) 
SEP  79  J  B  VALENTE  *  S  STRATAKOS  F30602-79-C-0011 

RA0C-TR-79-245-V0L-3  NL 


UNCLASSIFIED 


NAME:  TRIANG 


TYPE:  SUBROUTINE 

GENERAL  PURPOSE: 

Solves  the  matrix  equation 

[Admittance  Matrix]* [Transfer  Function  Vector ]= [Current 

VARIABLES: 

AM  =  Intermediate  calculation  for  row  operation 
and  back  substitution 

BIGX  =  Intermediate  storage  for  pivot  element 
selection 

CCUR  =  Complex  current 
vector  element 

CUR  *  Complex  current  vector  element 

CUR1  =  Complex  current  vector  element 

CXZERO  =  Complex  constant  (0.,0.) 

DIM  *  Length  of  U  and  JU  arrays 

IBIG  »  Pointer  for  pivot  element  selection 

I HOW  =  Record  of  pivoting  information 

IH0W(1)-(N)  *  Record  of  row  interchanges 

IHOW (N+l) - ( 2N)  *  Column  pointers  for 

elimination  information 

IHOW ( 2N+1) . . .  ■  Column  elimination 

information 


Vector] 
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II 

III 
IP 
IPT 
IS 
ISS 
IT 

I  TOT 
IU 
JIP 

JNR 

JU 

Kl 

K2 

LOC 

LPE 

LT 

LI 

L2 

N 

NNl 

NP 

NZERO 

PE 

T 


Column  index  for  triangular ization 

Index  for  IHOW  array 

Pivot  row  number 

Pivot  element  number 

Index  for  IHOW  array 

Index  for  IHOW  array 

Number  of  row  operations  to  be  performed 
Number  of  fill-ins  created  by  row  operation 
Row  identification  vector 
Relative  disk  address  of  current  vector 
element 

Relative  disk  address  of  current  vector 
element 

Column  identification  vector 

Pointer  for  row  undergoing  operation 

Pointer  for  row  undergoing  operation 

Address  of  admittance  matrix  on  file  20 

Length  of  admittance  matrix  in  words 

Length  of  T.F .  vector  in  words 

Pointer  for  pivot  row 

Pointer  for  pivot  row 

Order  of  admittance  matrix 

Index  for  IHOW  array 

Number  of  row  undergoing  operation 

Number  of  nonzeroes  in  admittance  matrix 

Complex  admittance  matrix  element 

Complex  T.F.  vector  element 
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m 


..  . 


*1 


u 


Compacted  admittance  matrix 


SUBROUTINES  CALLED: 

DATARD  DATAWR  TFRD  TFWR 

CALLING  PROGRAMS- 
PHASE3 

DESCRIPTION: 

Subroutine  TRIANG  solves  the  complex  matrix  equation 
[Admittance  Matrix] * [Transfer  Function  Vector]  =  [Current 
Vector].  The  mathematical  technique  employed  is  that  of  Stoner's 
Method  as  described  in  "The  Application  of  Sparse  Matrix 
Techniques  to  Logisitcs  Related  Linear  Programming  Problems"  by 
Barton  and  Lloyd.  The  method  is  to  collapse  the  full  admittance 
matrix  into  compacted  form  so  that  only  the  non-zero  elements  are 
stored  in  core  and  manipulated  in  the  subroutine.  The  compacted 
matrix  is  then  transformed  into  upper  tr iangularized  form  by 
Gaussian  elimination  and  the  desired  transfer  functions  are  found 
by  back  substitution. 

Arguments  transmitted  to  subroutine  TRIANG  are:  LOC,  the 
starting  address  of  the  admittance  matrix  on  disk  file  20;  LPE, 
the  length  of  the  admittance  matrix  in  words-  and  LT,  the  length 
of  the  transfer  function  vector  (and  current  vector)  in  words. 
The  order  of  the  admittance  matrix,  N,  is  transmitted  to  the 
subroutine  through  global  common.  The  admittance  matrix  is 

stored  by  columns  on  disk  file  20,  while  the  current  vector  is 
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stored  in  the  first  LT  words  of  disk  file  25.  The  calculated 
transfer  function  vector  is  written  to  disk  file  20  beginning  at 
record  number  DATREC .  Each  complex  element  of  the  admittance 
matrix,  current  vector,  and  transfer  function  vector  is 
individually  addressable  and  is  represented  by  two  decimal 
numbers,  the  first  for  its  real  part  and  the  second  for  its 
imaginary  part. 

The  program  code  of  subroutine  TRIANG  was  taken  directly 
from  the  main  program  and  subroutine  TRIANG  of  the  Barton  and 
Lloyd  paper  with  some  minor  variations  in  input  technique  and 
pivot  strategy  as  well  as  modifications  to  handle  complex 
numbers.  This  discussion  will  focus  on  the  changes  required  to 
adapt  Barton  and  Lloyd's  work  to  the  NCAP  program.  The  reader  is 
directed  to  the  previously  referenced  paper  for  a  complete 
description  of  the  mathematical  techniques. 

Subroutine  TRIANG  can  accommodate  admittance  matrices  of 
varying  orders  by  adjusting  the  dimensions  of  U,  the  storage  area 
for  the  compacted  matrix,  JU  and  IU,  which  are  indexing  vectors 
for  the  compacted  matrix,  and  IHOW,  which  records  the  sequence  of 
row  operations  for  the  elimination  process.  Experience  with  a 
variety  of  NCAP  circuits  has  shown  that  sufficient  storage  can  be 
allocated  by  setting  the  dimensions  of  U  and  JU  (represented  by 
the  variable  DIM)  at  seven  times  the  number  of  nodes  in  the 
circuit  and  of  IU  at  the  number  of  nodes+1.  Although  the  size  of 
the  I HOW  array  cannot  be  predicted  as  accurately,  a  dimension  of 
IHOW ( 2*DIM)  will  generally  suffice. 

Subroutine  TRIANG  begins  by  collapsing  the  full  admittance 
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mate  lx  to  compacted  form,  storing  the  npn-zero  elements  by  rows 
in  U  and  recording  the  row  and  column  indices  in  the  IU  and  JU 
vectors.  First  the  nonzero  count  NZERO  and  the  row  count  IRON 
are  initialized  to  zero  and  the  U,  IU,  JU,  and  IHOW  arrays  are 
cleared.  The  elements  of  the  admittance  matrix  are  read  one  at  a 
time  from  disk  file  20  by  subroutine  DATARD  under  the  control  of 
the  row  and  column  indices  I  and  J.  If  the  element  is  not  zero, 
the  nonzero  count  is  incremented  and  the  element  is  placed  in  the 
compacted  matrix  at  U(NZERO).  In  the  event  that  the  U  array  is 
overrun  (NZERO. GT. DIM) ,  an  appropriate  error  message  is  printed 
and  program  execution  stops.  Otherwise  the  column  index  J  is 
stored  at  JU (NZERO).  If  this  is  the  first  nonzero  element  in  the 
Ith  row  (I.GT.IROW),  the  row  count  is  incremented  and  the  origin 
of  the  Ith  row  is  recorded  at  IU(IROW). 

After  the  full  matiix  has  been  compacted,  the  current  vector 
is  copied  to  a  work  area  on  disk  file  25.  Then  the  compacted 
matrix  is  transformed  to  upper  tr iangularized  form  by  Gaussian 
elimination.  The  program  code  follows  directly  from  the  Barton 
and  Lloyd  paper  except  that  the  column  element  with  the  largest 
magnitude  (sum  of  the  squares  of  the  real  and  imaginary  parts)  is 
used  as  the  pivot  element  for  that  column.  The  row  in  which  that 
element  is  located  becomes  the  pivot  row  for  a  series  of  row 
operations  which  eliminate  all  the  non-zero  elements  below  the 
pivot  in  that  column.  As  fill-ins  are  generated  they  are 
inserted  in  the  compacted  matrix  U.  At  the  completion  of  all  row 
operations  for  a  given  column,  the  same  sequence  of  operations  is 
performed  on  the  current  vector. 
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When  triangularizatlon  is  complete,  the  transfer  function 
vector  storage  area  on  disk  file  25  is  cleared  and  the  desired 
transfer  functions  are  derived  by  back  substitution  and  written 


temporarily  to  file  25.  At  the  completion  of  the 
substitution,  the  resulting  transfer  function  vector  is 
from  file  25  to  file  20  for  accessing  by  subsequent  NCAP 
and  subroutine  TRIANG  returns  to  the  calling  program. 


back 

copied 

phases 


NAME-  UPFRO 


TYPE:  SUBROUTINE 

GENERAL  PURPOSE: 

Updates  frequency  combination  for  use  in  function  LOCTF 

VARIABLES: 

N  =  Subscript 

NF  =  Number  of 

SEC  =  Frequency 

SUBROUTINES  CALLED- 
NONE 

CALLING  PROGRAMS: 

LOCTF 

DESCRIPTION: 

For  a  given  frequency  combination  stored  in  the  integer 

vector  SEC,  subroutine  UPFRC  generates  the  next  frequency 
combination  of  like  order  for  use  by  function  LOCTF.  Arguments 
transmitted  to  subroutine  UPFPC  are-  SEC,  the  previous  frecuency 
combination  vector,  and  NF,  the  number  of  frequencies  in  the 
combination.  The  updated  frecuency  combination  vector  is 
returned  to  function  LOCTF  in  SEC. 


for  frequency  combination  vector 
frequencies  in  combination 
combination  vector 
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The  frequency  combinations  generated  by  subroutine  UPFRQ  are 
based  on  sequential  frequency  numbers.  The  NF  sequential 
frequency  numbers  in  a  combination  are  stored  in  the  first  NF 
elements  of  the  integer  vector  SEC,  where  each  element  is 
numerically  equal  to  the  frequency  number  it  represents. 
Frequencies  are  stored  in  the  vector  so  that  they  decrease  as  the 
subscript  of  SEC  increases.  Therefore  for  any  vector  element 
SEC(K),  the  largest  frecuency  it  can  contain  is  NF-N+1 . 

The  method  used  in  subroutine  UPFRC  is  to  find  the  first 
element  SEC(N)  for  N=1,2...NF  such  that  (SEC (N) +1) .LE. (NF-K+1) . 
Paving  isolated  this  element,  the  new  combination  is  formed  by: 

K=SE0(N)+1 

SEC(I)=K+N-I  for  1  =  1, 2...  N 

The  algorithm  of  subroutine  UPFPC.  is  summarized  as  follows: 


STEP  1-  In  it ial iza  tion 


a)  Set  SEC  subscript  at  N=0 


STEF  2  Increment  and  Test  Subscript 


a)  Increment  SEC  subscript  by  N=r+1 

b)  If  (r.LF.KF),  go  to  Step  3. 
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c)  If  (N.  CT.NF) ,  algorithm  complete. 


+  * 


STEP  3:  Update  and  Test  SEQ(N) 

a)  Define  EEC (N) =SEC (!’) +1 

b)  If  SEC (N) .CT.  (NF-M+1 ) ,  this  value  too  large  for  SEC(K). 
Co  to  Step -2. 

c)  If  FEC(K)  .LE.  (HF-N+1)  ,  this  value  O.K.,  for  SECO1).  Co 
to  Step  4. 

STEP  4  ;  Pedefine  First  ?T  Vector  Elements 


a) 

Set  K=SEC(F). 

h) 

Define  SEC(I)=K+N-I 

for  1*1,2.  .  .r; 

+  V 

Q 
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NAME •  UPS EC 

TYPE-  SUPROUTINE 

GENERAL  PURPOSE: 

Generates  frequency  combination  vector  ancl 
maintains  order  of  analysis 

VAPIAPLES • 

I 

M 

MM  = 

MXORD  = 

ORDER  = 

SEC 

SUPPOUTINES 
NONE 

CALLING  PROGRAMS- 

COKTFL  CUPNC  CUPNDS  PRSET 

DESCRIPTION • 

Subroutine  UPSEC  maintains  the  order  of  analysis 
generates  freauency  corbinations  for  use  m  Phases  3  and 


Index  for  freauency  combination  vector 
Largest  valid  frequency  code  for  SEC(I) 
Largest  valid  frequency  code  in  vector 
Maximum  order  of  analysis 
Order  of  analysis 

(length  of  frequency  combination  vector) 
Freauency  combination  vector 

CALLED • 


and 
4  . 
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Arguments  transmitted  to  subroutine  UPSEQ  are:  MXORD,  the  number 

of  input  frequencies  for  the  circuit  (maximum  order  of  analysis) ; 

the  number  of  frequencies  in  the  previous  frequency  combination 

(order  of  analysis) ;  and  SEQ,  the  previous  frequency  combination 

vector.  Arguments  returned  to  the  calling  program  are:  ORDER, 

the  number  of  frequencies  in  the  new  combination  (updated  order 

of  analysis)  and  SEQ.  the  new  frequency  combination  vector. 

The  frequency  combinations  generated  by  subroutine  UPSEQ  are 

based  on  sequential  frequency  numbers.  For  a  circuit  with  MXORD 

input  frequencies,  the  sequential  frequency  numbers  are  the 

0 

integers  1,2, ...MXORD  and  the  frequency  combinations  are  ordered 

sets  of  these  integers  taken  one  at  a  time  for  first  order 

(0RDER*1) ,  two  at  a  time  for  second  order  (0RDER«2) ,  and  so  on. 

The  ORDER  sequential  frequency  numbers  in  a  combination  are 

represented  by  the  first  ORDER  elements  of  the  integer  vector 

SEQ.  Each  SEQ(I)  is  a  power  of  2  derived  by  mapping  a  sequential 

frequency  number  to  the  bit  position  of  like  number  (i.e.  the 

N-l 

frequency  number  N  is  represented  by  SEQ(I)*  2  ).  Frequencies 

are  stored  in  the  vector  so  that  they  increase  numerically  as  the 
subscript  of  SEQ  increases. 

This  method  of  encoding  and  storing  frequency  combinations 

imposes  certain  limitations  on  the  numeric  values  of  the  SEQ 

elements  which  provide  the  basis  for  the  algorithm  implemented  in 

subroutine  UPSEQ.  First,  since  each  vector  element  represents  a 

frequency  njmber  in  the  range  1  to  MXORD ,  no  element  may 

MXORD- 1 

numerically  exceed  2  Furthermore,  :  inc  '  the  vector 

elements  are  stored  so  that  they  increase  numerically,  each 
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element  has  a  largest  possible  value: 


MXORD-1 

SEO (ORDER)  .LE.  2 

MXORD-2 

SEO (ORDER-1 )  .LE.  2  ,etc. 

Frequency  combinations  are  generated  recursively  by 

subroutine  UPSEQ.  The  first  combination  of  a  given  ORDER  is 
defined  to  be  the  ordered  set  of  sequential  frequency  numbers 
(1 ,2 . . .ORDER)  which  is  mapped  to  the  elements  of  SEQ  according 
to : 

SEQ ( I) =2  1  1  for  1=1,2, - ORDER 

Each  successive  combination  of  the  same  ORDER  is  derived  from  the 
previous  SEQ  vector.  The  method  is  to  find  the  first  element 
SEQ (I)  for  I=ORDER ,  ORDER-1,... 1  such  that  SEQ(I)*2  does  not 

exceed  the  largest  possible  value  for  SEQ(I) .  Having  isolated 

this  element,  the  new  combination  is  formed  by: 

SEQ(I)=SEC(I)*2 

SEQ(J)=SEQ(J-1) *2  for  J=I+1 ,.. .ORDER 

The  algorithm  by  which  successive  combinations  of  ORDER 
frequency  numbers  are  generated  by  subroutine  UPSEQ  is  summarized 
as  follows: 

0  V 
*  0 
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STEP  1: 


Initialize  Algorithm  at  SEC(ORDEP) 


a)  Set  SEC  subscript  at  I=ORDER. 

b)  Define  largest  possible  value  for  SEC (ORDER)  as  K=2* 
(yxCRD-1) . 

STEP  2-  Update  and  Test  SEC (I) 

a)  Define  J=SEC(I) *2. 

b)  If  (J.GT.M) ,  this  value  too  large  for  SEQ(I).  Go 
to  Step  3 . 

c)  If  (J.LE.tf) ,  this  value  O.K.  for  SEC(I).  Co  to 
Step  4. 

STEP  3-  "ove  Search  to  Hext  SFC  Element 


a) 

Decrement  SEC  subscript 

by  1=1-1. 

b) 

Define  largest  possible 

value  for  SEO(I)  as  M=M/2. 

c) 

If  (I.CT.r1)  ,  go  to  Step 

2.  Otherwise  this  ORDER 

complete . 

STEP  4  • 


Define  New  SEC  Vector 


o 


a)  Set  SEC(I)=J. 

b)  Define  SEC(J)=SEC(J-1) *2  for  J-I+l, .. .ORDER. 


Each  call  to  subroutine  UPSEC  results  in  the  generation  of 
one  freauency  combination.  For  a  circuit  with  f'XCFC  input 
f  r  eclienc  ies ,  subroutine  UPSEC  rrust  be  invoked  2^X0RD  -1  times  to 
generate  every  possible  freauency  combination.  The  integer 
variable  CRETE,  which  primarily  defines  the  number  of  frecuencies 
in  a  particular  combination,  also  controls  the  iterative  calls  to 
subroutine  UPSEC-  GFCFR  is  initialized  to  zero  by  the  calling 
program,  testec?  and  appropriately  updated  by  subroutine  UPSEC. 
then  retested  by  the  calling  program.  For  CEEEP=C , 1 , 2 . . .YXCPC , 
both  the  calling  procrar.  and.  subroutine  UPSEC  are  alerted  that 
additional  combinations  remain  to  be  generated.  'fter  all 
combinations  for  a  particular  CFTCR  have  been  generated,  CITEF  is 
incremented  and  tested  in  UPSEC.  If  CFCEF.  .LF .  ?'XCFD ,  the  first 
combination  for  the  new  CFCEF  is  created.  Vher.  CFCEF  exceed 
f'XCPD .  subroutine  UPSEC  returns  the  value  CPEEP=-1  which  signals 
the  calling  program  that  all  possible  combinations  for  all  orders 
have  been  cenerated. 

?  tabulation  of  all  freauency  combinations  for  every  order 
of  analysis  up  to  r,yorr  =  r  (the  largest  order  allowed  ir.  •'C.’?),  ic 
presenter?  below- 

X 
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MXDRD  =  2 

SEO 

NO.  I  2  3  4  5  6 

1  10  0  0  0  0 
2  2  0  0  0  0  0 

3  2  I  0  0  0  0 


MXORD  =  3 


SEO 

NO.  I  23456 

1  10  0  0  0  0 

2  2  0  0  0  0  0 

3  3  0  0  0  0  0 

4  2  10  0  0  0 

5  3  10  0  0  0 

6  3  2  0  0  0  0 

7  3  2  1  0  0  0 


MXORD  =  4 

seo 

NO.  123456 

1  10  0  0  0  0 

2  2  0  0  0  0  0 

3  3  0  0  0  0  0 

4  4  0  0  0  0  0 

5  2  I  0  0  0  0 

6  3  10  0  0  0 

7  4  10  0  0  0 

0  3  2.  0  0  0  0 

9  4  2  0  0  0  0 

10  4  3  0  0  0  0 

11  321000 

12  4  2  10  0  0 

13  431000 

14  4  3  2  0  0  0 

15  4  3  2  10  0 


MXORD  =  5 


SEO 

NO.  1  2  3  *"4  5  6 

1  1  0  o'  0  0  0 

2  2  0  0  0  0  0 

3  3  0  0  0  0  0 

4  4  0  0  0  0  0 

5  5  0  0  0  0  0 

6  2  10  0  0  0 

7  3  10  0  0  0 

9  4  10  0  0  0 

9  5  10  0  0  0 

10  3  2  0  0  0  0 

11  4  2  0  0  0  0 

12  5  2  0  0  0  0 

13  4  3  0  0  0  0 

14  5  3  0  0  0  0 

15  5  4  0  0  0  0 

16  3  2  10  0  0 

17  4  2  10  0  0 

19  5  2  10  0  0 

19  4  3  10  0  0 

20  5  3  10  0  0 

21  541000 

22  4  3  2  0  0  0 

23  5  3  2  0  0  0 

24  5  4  2  0  0  0 

25  5  4  3  0  0  0 

26  4  3  2  10  0 

27  5  3  2  10  0 

29  5  4  2  10  0 

29  5  4  3  10  0 

30  5  4  3  2  0  0 

31  543210 
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*  0 


MXDKD  =  6 


SEQ 

MO.  12  3  4  5  6  NO. 


1  1  0  0  0  0  0  33 

2  0  0  0  0  0  34 

3  0  0  0  0  0  35 

4  0  0  0  0  0  36 

5  0  0  0  0  0  37 

6  0  0  0  0  0  33 

2  10  0  0  0  39 

3  10  0  0  0  40 

4  10  0  0  0  41 

5  10  0  0  0  42 

6  10  0  0  0  43 

3  2  0  0  0  0  44 

4  2  0  0  0  0  45 

5  2  0  0  0  0  46 

6  2  0  0  0  0  47 

4  3  0  0  0  0  48 

5  3  0  0  0  0  49 

6  3  0  0  0  0  50 

5  4  0  0  0  0  51 

6  4  0  0  0  0  52 

6  5  0  0  0  0  53 

3  2  10  0  0  54 

4  2  10  0  0  55 

5  2  10  0  0  56 

6  2  10  0  0  57 

4  3  10  0  0  58 

5  3  10  0  0  59 

6  3  10  0  0  60 

5  4  10  0  0  61 

6  4  10  0  0  62 

6  5  10  0  0  63 

4  3  2  0  0  0 


1  2 


5  3 

6  3 

5  4 

6  4 

6  5 

5  4 

6  4 

6  5 

6  5 

4  3 

5  3 

6  3 

5  4 

6  4 

6  5 

5  4 

6  4 

6  5 

6  5 

5  4 

6  4 

6  5 

6  5 

6  5 

5  4 

6  4 

6  5 

6  5 

6  5 

6  5 

6  5 


SEQ 

3  4  5 


2 

2 

2 

2 

2 

3 

3 

3 

4 
2 
2 
2 
2 
2 
2 
3 
3 

3 

4 
3 
3 

3 

4 
4 
3 
3 

3 

4 
4 
4 
4 


0 

0 

0 

0 

0 

0 

0 


0 

0 

0 

0 

0 

0 

0 


0  0 
0  0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 

2  0 
2  0 
2  0 
2  0 
3  0 
2 
2 
2 
2 
3 
3 
3 


2 

2 


6 


JD 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

1 


*  V 

*  p 
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T  pp  ••  p 

IF? 

II'FC 

i?"r~c 
ircr 
ICTC 
I  CUT 


—  7  r» 


litude  values 


=  ? nr  cl  ftecuency  values 
=  Cset-t  cri n ed  f t c-rue n c y  r. u - 1  e  t s 
=  ? recucrcy  values 
=  rr truer. cy  nurlct  table 

ritfcectift  =  fee  cent  Lei  Cree^ercy  r.urr’cer 
Value  =  rscr-ast  icr.e.-'  ft  or  uc  r.cv  r.uri 

=  rrcrucncy  values  For  3 in tie  ccrcretct 
=  Linear  ere!  nonlinear  cc.vrrcnent  type 
=  User-assicne<f  ruder  cf  freruercy  to  te 
r let  tec 

=  lrpcc!orcc  value 
=  Ivper’snce  code 

-  Lodes  to  be  clot  tec’ 

=  Orders  to  're  clotted 

-  Iocical  unit  runlet  cf  lire-  printer 
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jfrr 


jprcr 


^rrcc 


T  r'rr" 

L  V.  '>•  .4 


:rr 


rf 

"AX  IT 


M'/prr 
A  V.  i  L 


:cri 


.  i* 

M  n 


vrrrc 


‘*IT 
'TP  r° 
*'crc  r 

"F  LE? 
”v7  it: 


=  Address  of  freouency  data  for  sweep 
restorat  ion 

=  Intermediate  storage  for  driver  file  record 
r.urbct 

=  Lo f t- j ust  if  red  alphanumeric  representation 
of  user-assigned  freouency  number 
*  File  2f  address  of  T.F.  vector 
=  Frint  select  switch-  1  =  Suppress  printing 

f  =  Enable  printing 
=  Length  of  each  T.F.  vector  in  words 
=  Total  number  of  freouency  sweep  iteration^: 

=  vsxirur  order  of  analysis 
=  Length  of  1 inear/nonl inear  component  data 
area 

=  Number  of  nodes  specified  in  print  select 
=  'Petal  number  cf  defined  ftecuencies  in 
c ir cu it 

=  rurber  of  frecuencies  defined  for  given 
generator 

=  Number  of  impedances  defined  for  given 
generator 

=  Freouencv  sweep  iteration  counter 
=  Nodes  specified  *.n  print  select 
-  Eider  of  analysis 
=  rurber  of  plot  specifications 
=  Amplitude  table 
=  dnclo  of  node  voltage 
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x  r 


fvec 


Number  of  T.F.  values  for  ordinate  of  plot 


NVFPEC  =  Frecuency  value  table 
MVMAC  =  Magnitude  of  node  voltage 
NVCLT  =  K ode  voltage  (rectangular  forrr) 

ORCPF  =  Number  of  orders  specified  in  print  select 
CFDFS  =  Crders  specified  in  print  select 
PLSW  =  Plot  switch-  ?,  =  Off 

1  =  Cn 

PPSV  =  Print  switch-  C  =  Cff 

1  =  Cn 

ECFACT  =  Scale  factor  for  T.F.  to  N.V.  calculation 
SFC  *  Frecuency  combination  vector 
STT  =  Frecuency  heading 
T  =  Transfer  function  element 

VFCTOF  =  T.F.  values  for  ordinate  of  plot 


SUPFCl’T 

infs  callfl 

CX"PY 

cxpcl 

fata rr 

DATA VP  CFIVFD 

PHASE 1 

FHASF5 

PFNTI** 

PFSFT  PTIVF 

FEE  I FT 

TFTCNV 

TirCCT 

CALLING  ?F CCFAf'C 
PFASF3 

*■*>  FFScriPTicr 

is  the  priraty  routine  cf  NCAP's  output 
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Subroutine  ITASF4 


phase.  It  prints  the  output  from  a  circuit  analysis,  tabulates 
plot  data  for  use  in  a  subseouent  phase,  and  controls  frequency 
sweeping.  These  functions  are  performed  under  the  control  of  a 
driver  file  scan. 

The  standard  printed  output  consists  of  all  input  values  for 
each  circuit  eleirent,  as  well  as  all  scaled  nonlinear  transfer 
functions  and  node  voltages  resulting  fror  a  circuit  analysis. 
The  printing  of  circuit  eleirent  data  is  controlled  by  the  print 
select  Cr/CFF  switch,  w'hic’n  is  initialized  ON  at  the  beginning  of 
?K?'FF 4  and  subsecuently  reset  whenever  a  print  select  driver 
record  is  processed.  hThen  a  circuit  eleirent  record  is 
encountered  in  the  driver  file  scan,  the  print  select  switch  is 
interrogated.  If  the  switch  is  ON,  the  circuit  element  data  is 
printed  if  the  switch  is  OFF,  the  printing  of  eleirent  data  is 
suppressed . 

The  Fnd  Circuit  driver  record  initiates  printing  of  the 
transfer  functions  and  node  voltages  under  the  control  of  the 
print  select  NODE  and  C-PDF-P  specifications.  If  no  print 
selection  is  specified  in  the  input  stiearr,  the  complete  transfer 
function  vectoi  and  the  corresponding  node  voltages  are  printed, 
ore  rode  pet  line,  fci  each  freeuency  combination  at  which  the 
circuit  was  analyzed.  The  transfer  functions  and  node  voltages 
are  output  in.  both  rectangular  and  loo  polar  form  in  the  order 
they  were  calculated  by  Phase  3. 

If  node  and/or  order  print  selection  is  specified,  a  table 
of  selected  nodes  and  orders  is  created  during  the  processing  of 
the  pi  „nt  select  driver  record.  When  the  Fnd  Circuit  is 
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encountered,  only  those  transfer  functions  corresponding  to  the 
nodes  and  orders  in  the  print  select  table  are  printed. 


K0 

Subroutine  PHASE4  begins  with  initialization  of  phase 
parameters.  The  freouency  counter  is  cleared  by  KF=C ,  the  print 
select  ON/OFF  switch  is  turned  Cl-  by  L3TCFF=G,  and  the  logical 
unit  number  for  the  printer  is  stored  in  IOUT.  The  driver  record 
number  is  initialized  to  DPVFEC=1  and  the  print  select  node  and 
order  counters,  NDPF  and  CKDPP  are  cleared. 

A  driver  record  is  read  from  file  21  by  subroutine  FFIVPD. 
If  FISC (7 ) =1 ,  the  printing  of  data  associated  with  the  driver 
record  is  by-passed,  and  control  returns  to  the  driver  file  scan. 
Otherwise  subroutine  PHASE4  responds  to  the  ''OFF  of  the  record  as 
follows • 

^  p  ' 

**CCE=1 _ Oliver  File  Header 

The  total  number  of  input  frecuencies  for  the  circuit  is  set 
by  r'XORD=f'ISC  (2)  and  the  freouency  table  is  read  from  file  2”  by 
subroutine  DATAPD  and  stored  m  the  common  data  buffet  PUFF.  The 
freouency  values  are  transferred  from  riTF(l)-(lf)  to  the  decimal 
vector  FPEC  and  the  freouency  numbers  are  transferred  from 
FUFF  (1 1 )  -  ( 2 CT )  to  the  integer  vector  FPTPL.  Control  then  returns 
to  the  driver  file  scan. 

X 
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"CDC=13..  Start  Circuit 

The  printer  carriage  is  restored  in  preparation  for  output, 
the  length  of  each  transfer  function  vector  in  words  is 
calculated  as  LT=2*f'ISC  (4 )  ,  and  control  returns  to  the  driver 
file  scan. 

**01^=3  Ccnera t  or 

The  generator  data  record  is  read  from  file  20  by  subroutine 

9 

FATARr  and  stored  in  the  common  data  buffer  BUFF.  The  number  of 
frecuencies  and  impedances  associated  with  the  generator  are  set 
by  T1FP.EQ~FISC  (1 )  anc ?  i:iy<PS=r’ISC  (2)  .  The  number  of  frequency 
sweep  iterations  is  defined  as  T:iT=MISC(5)  and  the  generator 
driver  record  number  is  saved  in  JFFCC.  The  user-assigned 
frecuency  numbers  are  transferred  from  TUFF (31) - (40)  to  the 
inteoer  vector  FNG. 

The  positive  and  negative  nodes  of  connection  are  printed 
from  FISC  (3)  and  r*ISC(4)  and  the  frecuency  number,  frequency 
value,  and  complex  amplitude  for  each  of  the  PFREC  input 
frecuencies  are  printed.  The  frecuency  values  and  amplitudes  are 
appended  to  the  tables  KVFPEC  and  NVAFP  to  be  used  in  converting 
transfer  functions  to  node  voltages. 

For  each  impedance  in  the  data  record,  the  impedance  code  is 
transferred  from  the  data  buffer  to  IVTPC,  and  the  impedance  code 
and  complex  admittance  are  printed.  After  all  of  the  impedance 
'1ate  has  been  output,  conttcl  returns  tc  the  driver  file  scan. 
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”CCE=4  Linear  Components 
fCDE=5  Nonlinear  Components 

If  the  print  select  switch  is  off  (LSTCFF.I'F .  C )  ,  the 
printing  of  component  data  is  by-passed  and  control  returns  tc 
the  driver  file  scan.  Otherwise  the  component  data  record  is 
read  from  file  2f  by  subroutine  FflTBEC  and  stored  in  the  common 
data-' buffer  FUFF.  The  length  of  the  component  data  record  is  set 
by  I'CC?*P=SIEC  (1 )  .  For  each  component  in  the  data  record,  its 
type,  nodes  of  connection,  and  value  (or  coefficient  set)  is 
printed.  Control  then  returns  to  the  driver  file  scan. 

/ 

VCDF=6  Vacuum  Diode 

.’•CDF=7  Vacuum  Triode 

’*CDF=3  Vacuum  Fentode 

!‘*CrF=9  Fiploar  Junction  Transistor 

MCD F= 1 3  Semiconductor  Diode 

*,CCF=2n  Junction  Field  Fffect  Transistor 

■'GDF=25  Linear  Dependent  Source 

;,Crr=2G  dcnl  inear  Dependent  Source 


If  the  print  select  switch  is  off  (I STCFF .  IT . " ) ,  the 
printing  of  the  device  data  is  by-passed  end  control  returns  to 
the  driver  file  scan.  Otherwise  the  device  data  record  rs  read 

*  » 

*  + 
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froi?  file  2^  by  subroutine  DATAPD  and  stored  in  the  common  data 


predetermined  format  and  control  returns  to  the  driver  file  scan 


The  nuirber  of  orders  and  nodes  specified  in  the  print  select 
function  are  stored  by  CPCPE=FISC  (1 )  and  NCPF=fJISC  (2)  .  The  print 
select  Cr/CFF  switch  is  set  by  L£TOFF=KISC (3)  aryl  the  print 


common 


UFF ( 1 ) - ( 1 0 )  to  the  integer  vector  CRCFS  and 


noce 


are  read  fror  file  2C ,  converted  to  node  voltages 


sfet  functions  ate  accessed  by  recreating  every  freauency 
ination  at  wh  ic’n  the  circuit  was  analyzed  while  maintaining 


s  of  the  corresponding  transfer  function 


t 


The  End  Circuit  processing  begins  by  initializing  the 
address  of  the  transfer  function  vector  to  LOCT*MISC  (2)-LT.  The 
order  of  analysis,  is  initialized  to  NORDR=0  and  the  print  and 
plot  switches  are  turned  off  by--PRSW*0  and  PLSW=0. 

Subroutine  PRSET  is  called  to  generate  the  next  frequency 
combination  and  to  form  the  alphanumeric  frequency  heading.  If 
the  last  frequency  combination  has  not  been  generated  (NORDR. GT. 
0) ,  subroutine  TFTONV  is  called  to  calculate  the  scale  factor 
used  in  converting  transfer  functions  to  node  voltages.  The 
address  of  the  next  transfer  function  vector  is  calculated  by 
LOCT*LOCT+LT . 

When  plot  functions  are  included  in  the  NCAP  input  (NPLOT. 
GT.0),  the  plot  switch  is  turned  on  (PLSW=1)  if  the  order  of 
analysis  NORDR  is  among  the  orders  to  be  plotted.  The  plot 
switch  is  subsequently  turned  off  (PLSW=0)  if  the  frequency 
number  is  not  among  the  frequencies  to  be  plotted. 

When  print  select  order  specifications  are  included  in  the 
NCAP  input  (ORDPR.GT. 0) ,  the  print  switch  is  turned  on  (PRSW=1) 
if  the  order  of  analysis  NORDR  is  among  the  orders  to  be  printed. 

The  frequency  heading  which  contains  the  order  of  analysis, 
frequency  value,  and  frequency  combination  is  printed.  If  the 
print  and  plot  switches  are  both  off,  further  processing  for  the 
present  frequency  combination  is  by-passed,  and  the  next 
frequency  combination  is  generated. 

Otherwise  for  each  transfer  function  in  the  vector  1*1,  LT, 
2  the  corresponding  node  number  is  calculated  by  K=I/2+l  and  the 
complex  vector  element  is  read  from  file  20  by  subroutine  DATARD 
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and  stored  in  T.  The  transfer  function  is  converted  to  log  polar 
fotir  by  subroutine  CXPOL  and  stored  in  PC  LA  R . 

T.’hen  print  select  node  specifications  are  included  in  the 
NCA?  input  (KDPF.CT.O) ,  the  printing  of  the  transfer  function  is 
by-passed  if  the  node  K  is  not  among  the  nodes  in  the  print 
select  table.  Otherwise  the  transfer  function  is  converted  to  a 
node  voltage  and  the  node  number,  transfer  function  (in  both 
rectangular  and.  polar  forir)  ,  and  node  voltage  are  printed. 

If  the  plot  switch  is  on  and  K  is  among  the  nodes  to  be 
plotted,  the  transfer  function  is  appended  to  the  plot  'table  at 
VECTOR (J)  for  J  =  1  ,  KPLCT. 

After  every  frecuency  combination  has  been  generated  and  the 
rrintinq  of  transfer  functions  is  complete  (NORDR.LT.P) ,  control 
returns  to  the  driver  file  scan. 

»'0PF=16  End 

The  End  driver  record  controls  fteouency  sweeping.  if 
frecuency  sweeping  is  not  specified  for  the  circuit  (NAXIT . LT . 0 ) , 
program  control  passes  to  subroutine  FHASF5.  Otherwise  the 
frequency  sweep  iteration  count  is  incremented  by  NIT=NIT+1  and 
the  generator  driver  record  is  read  from  file  21  by  subroutine 

rrivpc. 

If  the  frecuency  sweep  is  complete  (NIT .CT . FAXIT) ,  the 
original  frecuency  data  is  read  from  file  20  by  subroutine 
rYT/rr  and  restored  to  the  generator  data  record  by  subroutine 
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PATAWR.  The  frequency  sweep  iteration  count  is  reset  by  NIT=C 

P 

and  program  control  passes  to  subroutine  PHASES. 

If  the  frequency  sweep  is  not  complete  (KIT  .  LE  .  MA.XIT)  ,  the 
next  sweep  iteration  is  initialized  as  follows:  the  address  of 
the  generator  data  record  is  saved  in  JACD  and  the  driver  record 
for  the  next  sweep  iteration  is  read  from  file  21  by  subroutine 
DPIVPD.  The  sweep  data  is  read  from  file  2D  by  subroutine  DA  TAKE 
and  written  to  the  generator  data  record  by  subroutine  rATAKF.  A 
new  circuit  analysis  is  initiated  by  calling  subroutine  FiTASFl. 

For  other  values  of  MODE,  subroutine  PFA5F4  returns  to  the 
driver  file  scan  without  further  processing. 


«  ► 
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NAME-  HHMMSS 


TYPE-  SUBROUTINE 


GENERAL  PURPOSE 


Converts  clock  time  for  NCAP  timing  routines  to  hours,  minutes 


VARIABLES 


ATIME  =  Intermediate  storage  for  time  calculation 


Hours  of  clock  time 


Minutes  of  clock  time 


Seconds  of  clock  time 


Clock  time 


TIME 


SUBROUTINES  CALLED 


NONE 


CALLING  PROGRAMS 


PFNTIM 


DESCRIPTION: 

Subroutine  HHMMSS  converts  clock  time  for  the  NCAP  timing 
routines  to  hours,  minutes,  and  seconds.  The  time,  expressed  in 
hours,  tenths,  and  hundredths,  is  transmitted  to  the  subroutine 

in  the  decimal  argument  time.  The  converted  time  is  returned  to 
the  calling  program  in  the  integer  arguments  HRS,  MIN,  and  SEC. 

Hours  of  clock  time  are  derived  by  taking  the  integer  part 
of  TIME.  Minutes  are  calculated  by  multiplying  the  fractional 
part  of  TIM£  by  60.,  and  retaining  the  integer  part  of  the 
result.  Seconds  are  then  found  by  multiplying  the  hundredths 
portion  of  TIME  by  60.,  and  subroutine  HHMMSS  returns  to  the 
calling  program. 
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yait  •  ppKTir 


r 

TYPT-  rUPRCUTIt’F 

rrrrrrAi.  puffcst 

Prints  output  from  tiring  routines 

Lccical  unit  number  of  line  printer 
Alpha rurer  ic  designator  of  program  segerrents 
Total  clock  tire  for  one  circuit 
Total  clock  tire  for  KCAP  jot 
"lapsed  clock  tire  pet  segment 
Accumulated  clock  tire  per  segment 

PIT FCnTI'TF  CALLET 

p  tt»*  r*  q 

V  it.  k.  C 

CALLING  F  PCCFA  "F  • 

PEASE 4 

rrcceiPTicr • 

Cuhioutine  PPf’TI.'.*  prints  the  output  ftor  the  I'CAF  tiring 
routines.  Elapsed  and  accumulated  tires  for  each  program 
segment,  71  *T  and  TTCTAL,  aLe  tiansritted  to  the  subroutine  in 
the  labelled  common  area  TI'TFL. 


VPFIAPIFP ■ 

T  orim 

J  v..  L  U 

T  I  FT 

sun 

ruf,2 

TI"F 
TTCTA  L 
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X  * 


First  the  total  time  for  the  past  Circuit  analysis  and  total 
time  for  the  NCAP  job  are  accumulated  in  SUMl  and  SUM 2 .  Then  for 


each  ptoaram  segment  executed  during  the  previous  circuit 
analysis  (TIMF (I) .CT.0) ,  the  elapsed  and  accumulated  segment 
times  are  converted  to  hours,  minutes,  and  seconds  by  subroutine 
HITMMSS  and  printed  in  tabular  form.  After  each  segment's  time 
has  been  printed,  the  TIME  array  is  zeroed  and  subroutine  PRNTIM 
returns  to  the  calling  program. 
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FP ME •  PRSET 


TYPE-  SUBROUTINE 


CENEFAL  PURPOSE 


cieates  fiecuency  headino,  and  calculates 


VARIABLES 


Fiecuency  values 


Usei -ass ioned  fiecuency  nur'ceis 


rxcrc 


UTPCUTIMFS  CALI  FT 


CALLING  PROGRAMS: 


PHASE 4 

DESCRIPTION 

Subroutine  PRSFT  fours  the  frequency  combinations  and 
creates  the  alphanumeric  frequency  heading  for  use  by  subroutine 
PHASE* .  Arguments  transmitted  to  the  subroutine  from  the  calling 
program  are  FEEC.  the  circuit's  input  freauency  values;  FETFL, 
the  frecuency  number  table:  MXCPD,  the  number  •  of  input 
frecuencies  for  the  circuit  (maximum,  order  of  analysis)  -  NCRDE, 
the  number  of  frecuencies  in  the  last  frecuency  combination 
(order  of  analysis):  and  SFC,  the  previous  frecuency  combination 
vector.  Arguments  returned  to  subroutine  PHAFF4  ate:  NCPDR,  the 
number  of  frecuencies  in  the  new  frequency  combination  (updated 
order  of  analysis)-  S,  the  calculated  frecuency  sum  for  the  new 
frecuency  combination-  PET,  the  alphanumeric  frequency  heading - 
and  ?FC .  the  updated  frecuency  combination  vector. 

Upon  entering  subroutine  PRSFT.  the  next  frequency 
combination  is  generated  by  subroutine  UPSEC.  If  the  last 
rossible  frecuency  combination  has  already  been  generated 
(ronrr.IF.C)  ,  subroutine  PFFET  returns  to  the  calling  program 
without  further  processing.  Otherwise  NCR DP  represents  the 
number  of  frecuencies  in  the  new  combination,  which  is  stored 
according  to  increasing  secuential  frecuency  numbers  in  the 
integer  vector  OHO. 
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The  frequency  suit  is  initialized  to  5=3;  and  the  index  for 
the  frequency  heading  is  set  at  L=1 .  The  frequency  heading  is 
created  by  converting  each  sequential  frequency  nuirber  in  the 


frequency  combination  to  its  user-assigned  number.  The 
user-assigned  number  is  then  converted  to  lef t- j ust if ied 
alphanumeric  format  and  placed  in  the  heading. 

First  the  frequency  combination  vector  is  decoded  as 
follows-  the  vector  element  SFC(I)  is  stored  in  ISFC-  Then  ISFC 
is  successively  shifted  right  one  bit  at  a  time  while  a  count, 
NUK ,  is  maintained  on  the  number  of  shifts  performed,  uhen 
ISEC=lf  then  NUf'  contains  the  seauential  frequency  number 
represented  by  SFO(I). 

The  corresponding  user-assigned  frecuency  number  is  taken 
from  the  frequency  table  as  FRTFL  (NU.M)  ,  stored  in  the  frequency 
heading  at  SFT(L),  and  converted  to  lef t-justif ied  alphanumer ic 
format  by  subroutine  LGFIFT.  A  comma  is  .inserted  after  the 
frecuency  number  in  the  heading  by  SET  (L+l )  =ICF!’A  and  the  heading 
index  is  updated  to  L=L+2.  Then  the  frequency  value  FREC(r;UM)  is 
added  to  the  frequency  sum. 

After  every  fteouency  in  the  combination  has  been  placed  in 
the  heading,  a  right  parenthesis  is  inserted  after  the  last 
frecuency  number  by  SET (L-l ) =IPPTr ,  the  heading  is  blank-filled 
to  the  tight,  and  subroutine  PPSFT  returns  to  the  calling 
program. 
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I'MT  TFTCKV 


TYPE •  SUDPCUTINT 


CFKERAI  PURPOSE: 

Calculates  scale  factor  for  use  in  converting 
transfer  functions  to  node  voltages 


V>'FIAri,Ff  • 

Ai’FL  =  Amplitude  values 
FCTFL  =  Values  of  1!  through  12! 

FPFCr  =  Multiplicative  accumulator 
CFEEC  =  Frecuency  values 
IfTFX  =  Secuential  frecuency  number 
IPTF  =  Cumber  of  discrete  frequency  values  in 
combination 

!•'  =  Frecuency  value  counters 

"VALUE  =  Table  of  discrete  frequency  values  in 
combination 

MCFFr  =  Order  of  analysis 
FCFACT  =  Calculated  scale  factor 
CFC  -  Frecuency  combination  vector 
TFr'F  =  Inte r~ed rate  calculation 


'TrrcuTirrr  CAirsr- 
CXCFY 
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CALLING  PRCC RAT'S  • 

PHASE 4 

DESCRIPTION : 

Subroutine  TFTCNV  calculates'  the  scale  factor  for  use  in 
converting  transfer  functions  to  node  voltages  for  use  by 
subroutine  FFASE4 .  The  arguments  transmitted  to  subroutine 
TFTCNV  froir  the  calling  program  are-  NCFDE,  the  number  of 
frequencies  in  the  ’  frequency  combination  (order  of  analyses) 
C-'FPEO ,  the  circuit’s  input  frequency  values  Af'PL  ,  the  circuit's 
input  amplitude  values-  and  SFC,  the  frequency  combination 
vector.  The  calculated  scale  factor  is  returned  to  the  calling 
rrograr  in  SCFACT. 

For  a  given  frecuency  combination,  the  scale  factor  is  a 
function  of  the  amplitude  at  each  frecuency  in  that  combination,, 
the  order  of  analysis,  and  the  number  of  times  each  discrete 
frequency  value  appears  in  the  combination.  Subroutine  TFTCNV 
creates  a  table  of  the  discrete  frecuency  values  in  the 
combination  and  counts  the  nun.be r  of  tires  each  value  is  used  in 
the  frecuency  combination.  The  discrete  frecuency  values  and  the 
corresponding  counters  are  stored  in  the  vectors  .‘-'VALUE  and  r*  so 
that  "(I)  counts  the  number  of  times  f’VALtT(I)  appears  in  the 
combination.  The  lencth  of  the  “VALUE  and  vectors  is 

accumulated  in  IPTF. 

Subroutine  TFTCNV  begins  hy  clearing  the  ”VA LIT  and  “ 
vectors  and  setting  IETP=P.  The  complex  scale  factor  is 


initialized  to  SCFACT*(1.,  0.).  Then  for  each  element  in  the 
frequency  combination  vector,  SEC(l)  through  SEC(NCPDR),  the 
sequential  freauency  number  represented  by  SEQ(I)  is  decoded  by 
the  function  IND  and  stored  in  INDEX.  Subroutine  CXKPY  is  called 
to  multiply  the  accumulated  scale  factor  by  the  amplitude 
fiy.P  ( INDEX)  ,  storing  the  product  in  SCFACT. 

If  no  freauency  values  have  been  placed  in  the  table  (IPTF 
=C) ,  the  table  length  is  updated  to  IPTP=IPTP+1,  the  value 
CFREC (INDEX)  is  appended  to  .the  table  at  N VALUE (IPTF) ,  and  the 
frequency  counter  N(IPTP)  is  initialized  to  1. 

If  there  are  frequency  values  in  the  table  (IPTF.CT.3),  the 
value  CFREC (INDEX)  is  compared  to  each  N VALUE .  If  no  match  is 
found  the  new  value  is  appended  to  the  table  as  above.  If  a 
match  is  found,  the  corresponding  counter  f*  ( J )  is  incremented. 

After  all  NCRDP  frequencies  in  the  EEC  vector  have  been 
processed,  the  values  of  N(I)2  for  every  frecuency  counter  are 
multiplied  together  and  stored  in  FPFCD.  After  the  intermediate 
calculation- 

,  NORDR-1 
TENP=rCPDR!  /  FFECD*2 

has  been  performed,  the  complex  scale  factor  follows  directly  by 
multiplying  the  teal  and  imaginary  parts  of  SCEACT  by  TENP. 
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scan  the  driver  file  for  sweep  functions  which  are  represented  by 
a  M0DE=4  (linear  component)  driver  record  followed  by  a  MODE®  24 
(linear  component  sweep)  driver  record.  For  each  such  function, 
the  component  values  for  the  next  iteration  ate  brought  forward 
from  the  sweep  data  record  to*  replace  the  previous  linear 
component  data,  and  a  n ew  circuit  analysis  is  performed  beginning 
with  Phase  1. 

The  driver  file  scan  begins  by  initializing  the  driver  file 
record  number  to  CPVREC=1.  A  driver  record  is  read  from  file  21 
by  subroutine  DPIVFD,  and  subroutine  PHASE 5  responds  to  the  MODE 
of  the  record  as  follows: 


^ODE^l  Driver  File  Header 

The  sweep  switch  is  turned  off  by  IDONE=^,  indicating  that 
no  sweep  functions  have  been  processed.  The  file  2?.  storage 
address  is  reset  by  f-'IEC  (1)  =FI£C  (4)  ,  allowing  the  admittance 
matrices  and  transfer  function  vectors  for  the  next  circuit 
analysis  to  be  written  over  those  from  the  last  analysis  .  The 
updated  driver  file  header  is  rewritten  by  subroutine  DRIVWF  and 
control  returns  to  the  driver  file  scan. 


f*CrE=4 _ L inear  Components 


The  device  mode  and  driver  record  nurbet  ate  saved  by 
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"DESV=4  anc1  JRECC=ERVP.FC-1  in  preparation  for  a  possible  sweep. 
f’ISC(7)  is  set  to  1  to  suppress  printing  of  the  old  component 
values  in  PBASE4 .  The  updated  linear  component  driver  record  is 
rewritten  by  subroutine  DPIVt'R  and  control  returns  to  the  driver 
file  scan. 

’_’CpF=24  _  Linear _ Flement  Sweep 

The  sweep  switch  is  turned  on  by  ICCLTE=1  and  subroutine 
CFt'GE  is  called  to  replace  the  previous  component  data  with  the 
data  values  for  the  new  sweep  iteration.  The  saved  device  mode 
is  chanced  to  fTESV=24,  causing  any  remaining  sweep  records 
associated  with  the  present  linear  component  definition  to  be 
ty-passed  in  the  driver  scan  (see  subroutine  CKNCF) ,  and  control 
returns  to  the  driver  file  scan. 

••CEE  =  1£  End 

If  the  sweep  switch  is  on  (IDCFC=1),  the  curve  count  is 
incremented  by  KCUPV=KCURV+1  and  a  new  circuit  analysis  is 
initiated  by  calling  subroutine  PFASF1.  If  the  sweep  switch  is 
off  ( IEOFE=” )  ,  program  control  passes  to  subroutine  PFFASE6. 

Tot  other  values  of  •'CTF  r  control  returns  to  the  driver  file 
scar,  without  further  processing  by  subroutine  PF’ASFS. 
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•  •  -V  M | 


m*F-  cnrGE 


TYPE-  SUPPOUTIHE 

C;  FIT  PAL  PURPOSE  • 

Performs  data  replacement  for  linear  component  sweep 
and  device  modification 


VAFiAn  rp  • 
PUFF 

EUFFC  = 
JP.CSV  = 
JPFCC  = 

*TFFV  = 

^cj'p  - 

VC!#*  PC  = 

pr;*  = 


I/C  buffet  for  modified  data 

I/C  buffet  f  >r  original  data 

Address  of  modify  driver  record 

Address  of  driver  record  of  device  being 

modified 

rode  of  device  being  modified 
Length  of  modified  component  data  area 
Length  of  original  component  data  area 
Length  of  each  component  description 


2l!RrCUTlrTC  CALLED 

nATA  PC  CATAV'P  CPIVFC  EPIVVF  EKPCP 

cm.  lire  PFCCPAf'C  • 

opAErf  fi’a  rrc 
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description* 

Subroutine  CHNGE  performs  the  data  replacement  for  linear 
component  sweeping  and  device  ltiodif ication  performed  in  Phases  5 
and  6.  Arguments  transmitted  to  the  subroutine  are:  MDESV ,  the 
mode  of  the  device  being  modified  and  JRECO,  the  driver  record 
number  of  the  device  being  modified.  The  modify  or  sweep  driver 
record  is  transmitted  to  subroutine  CHNGE  in  the  first  ten  words 
of  global  common. 

First  the  driver  record  number  of  the  sweep  or  modify  record 
from  which  the  data  is  derived  is  set  by  JRCSV=DRVREC-1 .  Then 
subroutine  CHNGE  interrogates  the  mode  of  the  device  being 
modified,  responding  to  the  value  of  MDESV  as  follows* 

MDESV=4  Linear  Components 
MDE SV=5  Nonlinear  Components 

The  length  of  each  component  description  in  the  data  record 
is  set  to  NW*4  for  linear  components  or  NW=13  for  nonlinear 
components.  The  sweep  or  modify  data  record  is  read  from  file  20 
by  subroutine  DATARD  and  stored  in  the  common  data  buffer  BUFF. 
Its  length  is  saved  by  NCMP=MISC(1) . 

The  driver  record  number  is  reset  to  DRVREC*JRECO  and  the 
original  component  driver  record  is  read  by  subroutine  DRIVRD . 
Then  the  component  data  record  is  read  from  file  20  by  subroutine 
DATARD  and  stored  in  BUFFO.  Its  length  is  saved  by 
NCMPO-M ISC \ ! ; . 


The  type  and  nodes  of  connection  for  each  component  in  the 
modify  data  record  (BUFF(I) f  BUFF(I+1) ,  and  BUFF(I+2)  for  1*1, 
NCMP , NW)  are  compared  against  those  in  the  original  component 
data  record  (BUFFO(J) ,  BUFF0(J+1)  and  BUFF0(J+2)  for  J-l,  NCMPO, 
NW) .  If  no  match  is  found,  an  appropriate  error  message  is 
printed  and  the  program  terminates.  When  a  match  is  found,  the 
original  component  value  or  coefficients  are  replaced  with  the 
modified  component  value  or  coefficients  according  to: 

BUFFO ( J-l+K) =BUFF ( I-l+K)  for  K=4,  NW 

The  component  driver  record  is  updated  by  MISC(7)=0  to 
enable  printing  of  the  new  component  data  in  PHASE4 .  The  updated 
component  driver  record  is  rewritten  by  subroutine  DRIVWR  and  the 
updated  component  data  record  is  written  to  file  20  by  subroutine 
DATAWR.  The  sweep  or  modify  driver  record  is  disabled  by  writing 
a  no-operation  (M0DE=2)  record  in  its  place  in  the  driver  file 
and  subroutine  CHNGE  returns  to  the  calling  program. 


MDESV-6 

Vacuum  Diode 

MDESV-7 

Vacuum  Triode 

MDESV*8 

Vacuum  Pentode 

MDESV*9 

Bipolar  Junction 

Tr ansistor 

MDESV*10 

Semiconductor  Diode 

MDESV*20 

Junction  Field  Effect  Transistor 

MDESV*25 

Linear  Dependent 

Source 
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MDESV* 26  Nonlinear  Dependent  Source 

The  modify  data  record  is  read  from  file  20  by  subroutine 

DATARD  and  stored  in  BUFFO.  The  driver  record  number  is  reset  by 
DRVREOJRECO  and  the  original  device  driver  record  is  read  from 
file  20  by  subroutine  DR1VRD. 

The  component  driver  record  is  them  updated  by  MISC(7)=0  to 
enable  the  printing  of  the  new  device  data  in  PHASE4.  The 
updated  device  driver  record  is  rewritten  by  subroutine  DRIVWR 
and  the  modify  data  record  is  written  from  BUFFO  to  the  original 
device  data  record  on  file  20  by  subroutine  DATAWR.  The  modify 
driver  record  is  disabled  by  writing  a  no-operation  (M0DE=2) 
record  in  its  place  in  the  driver  file  and  subroutine  CHNGE 
returns  to  the  calling  program. 

Any  other  value  of  MDESV  encountered  by  subroutine  CHNGE 
indicates  a  misplaced  modify  function.  An  appropriate  error 
message  is  printed  and  the  program  terminates. 
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*  P 


r^fT  FT?  CF6 


nYPf  rurrcuTirr 


rr:*F rai,  FccFcrr  • 

Controls  device  edification 


TTCrr  =  .“odify  switch-  ?  =  Co  codify 

1  =  Codify 

JFrcc  =  In te r rediate  storage  for  driver  file  record 
nurbet 

■TFCV  =  Ir.tercediate  storage  fcr  device  code 
”CUFV  =  rurfcet  of  curves  defined  by  circuit  analysis 

rurrcTTirFS  crr.irr  • 

crrrr  rrxvrr.  cnvi-T  pfacei  pi?asc7 

T5  T  J  *  *  r*  ^I'Tl  ^ 


CPLirx  rTCCF?;-?s 


*  .  r  z 


r*>  -  •  T  r~.  T  *•> 

■  i  .  V.  *  I  t  *  I  t  . 


.  u>  rcutme  P  PT  CPf  controls  linear  and  nonlinear  element 
r  ci.if  iCetrons  (except  for  generator  codifications)  .  It  scans  the 
t  » v e r  frle  fot  rcorfy  functions  which  arc  represented  by  a 
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m 


_ 


device  driver  record  (.'*CCE«4 ,5 ,6 ,7 ,8 , 9 ,1C  ,  20 ,25 , 26)  followed  by  a 
modify  record  (?*0CE®18)  .  For  each  such  function,  the  modify  data 
record  is  brought  forward  to  replace  the  original  device  data, 
and  a  new  circuit  analysis  is  performed  beginning  with  Phase  1. 

The  driver  file  scan  begins  fcy  initializing  the  driver  file 
record  number  to  DFVEC=1.  ?■  driver  record  is  read  from  file  21 
by  subroutine  DRIVED.  and  subroutine  PEASES  responds  to  the  ?'CDF 
of  the  record  as  follows-. 

VCD F=1  Drive t  File  Header 

The  modify  switch  is  turned  off  by  IDCEF=P r  indicating  that 
no  modify  functions  have  been  processed.  The  file  2d  storage 
address  is  reset  by  FISC (1) -VISC  (4)  ;  allowing  the  admittance 
matrices  and  transfer  function  vectors  for  the  next  circuit 
analysis  to  be  written  over  those  from  the  last  analysis.  The 
updated  driver  file  header  is  rewritten  by  subroutine  DF.IVt'F  and 
control  returns  to  the  driver  file  scan. 

*TCC=4  Linear  Components 

f'CCF*f  Nonlinear  Components 

VCDE=6  Vacuum  Diode 

VCDF=8  Vacuum  Pentode 

V0DF=9  Fipolat  Junction  Transistor 

VOCE*!*  Semiconductor  Mode 
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rcrr-20  Junction  Field  Effect  Transistor 


fODE=25  Linear  Dependent  Source 
VCDE=26  ronlinea t  Dependent  Source 

The  device  rode  and  driver  record  number  are  saved  by 
.’•rrSV=;*CDr  and  JEECC=DRVFFC-1  in  preparation  for  a  possible 
rod i f icat ion .  MISC(7)  is  set  to  1  to  suppress  printing  of  the 
old  device  values  in  FFASF4.  The  updated  device  driver  record  is 
rewritten  by  subroutine  DFIvr?.  and  control  returns  to  the  driver 
file  scan. 


VCDF-1 3  rod i fy 

The  irodify  switch  is  turned  on  by  IDCf’F=l  and  subroutine 
CFNCF  is  called  to  replace  the  or iginal  device  data  with  the 
rod i fy  data.  The  saved  device  rode  is  changed  to  KDESV=18, 
causing  any  teraining  iroc'ify  records  associated  with  the  present 
device  to  be  by-passed  in  the  dr  iver  scan  (see  subroutine  CL’t’CE)  , 
arc  control  returns  to  the  driver  file  scan. 


:df=is 


l  r.t. 


«*• 

■* » 


If  the  r.ocify  switch  is  cn 
met  erected  by  r:CuFV=rCUnv+l 
initiated  by  calling  subroutine 


(irC!.:E=l).  the  curve  count 
and  a  neu  circuit  analysis 
PHAEEl.  If  the  redify  switch 


is 


Is 

is 
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off  (IDCNE=0)  ,  prograrr  control  passes  to  subroutine  PHASF7. 


For  other  values  of  fODE ,  control  returns  to  the  driver  file 
scan  without  further  processing  by  subroutine  PHASE6. 
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PHASE7 


NAME-  PHASE 7 


TYPE-  SUEROUTIKE 

GENERAL  PURPOSE- 

Controls  generator  modification 

VAPIAELES 

JPFCC  • =  Address  of  generator  driver  record 
MODFY  =  Modify  switch-  0  =  No  rrodify 

1  =  Modify 

NCURV  =  Number  of  curves  defined  by  circuit  analysis 
MIT  =  Frequency  sweep  iteration  counter 

SUBROUTINES  CALI  EC 

rPIVRF  CFIVt'P  PHASE  1  PTIME 
TIMOUT 

CALLINC  PROGRAMS - 
PHASFG 

DESCRIPTION- 

Subroutine  PFASF7,  the  only  routine  of  NCAF's  final  phase, 
conttols  generator  rod  if icet  ion .  It  scans  the  driver  file  for 
generator  rrodif  ications  which  ate  represented  by  a  MCE£  =  3 
(generator)  driver  record  followed  by  a  MCDE=21  (generator 


mm 


modification)  driver  record.  Unlike  other  device  modifications, 
generator  modification  does  not  involve  data  replacement. 
Instead,  the  original  generator  description  is  disabled  by 
writing  a  no-operation  (M0DE=2)  record  in  its  place  in  the  driver 
file,  and  the  modified  generator  is  activated  by  changing  its 
MODE  from  21  to  3. 

The  driver  file  scan  begins  by  initializing  the  driver  file 
record  number  to  DRVREC=1.  A  driver  record  is  read  from  file  21 
by  subroutine  DRIVRD ,  and  subroutine  PHASE7  responds  to  the  MODE 
of  the  record  as  follows- 

MODE=l  Driver  File  Header 

The  modify  switch  is  turned  off  by  MODFY=0 ,  indicating  that 
no  modify  functions  have  been  processed.  The  file  20  storage 
address  is  reset  by  M1SC(1) =MISC (4) ,  allowing  the  admittance 
matrices  and  transfer  functions  for  the  next  circuit  analysis  to 
be  written  over  those  from  the  last  analysis.  The  updated  driver 
file  header  is  rewritten  by  subroutine  DRIVWR  and  control  returns 
to  the  driver  file  scan. 

M0DE=3  Generator 


The  generator 

driver 

record  number 

is  saved 

by 

JRECODRVREC-1  and  the 

number 

of  frequency  sweep 

iterations 

for 
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the  generator  is  set  by  NIT-MISC(6)+1.  Control  returns  to  the 
driver  file  scan. 

MODE* 21 Generator  Modification 

The  modify  switch  is  turned  on  by  M0DFY=1,  indicating  that  a 
modi.fy  function  has  been  encountered.  The  original  generator  is 
disabled  by  writing  no-operation  (MODE-2)  records  in  place  of  the 
generator  driver  record  and  any  sweep  driver  records  associated 
with  it.  The  no-operation  records  are  written  to  file  21  by 
subroutine  DR1VWR  beginning  at  DRVREC=JRECO  and  proceeding 
through  the  next  successive  NIT  records. 


The 

generator 

modification  driver  record 

is  read 

by 

subroutine 

DRIVRD. 

The  modified  generator 

is 

activated 

by 

setting  MODE-3,  and 

the  updated  driver  record 

is 

rewritten 

by 

subroutine  DRIVWR.  In  order  to  by-pass  any  sweep  or  modify 
driver  records  associated  with  the  new  generator,  a  secondary 
driver  file  scan  is  initiated  by  calling  subroutine  -DRIVRD  to 
read  the  record  immediately  following  the  new  generator  in  the 
driver  file.  If  MODE-12  (sweep)  or  MODE-21  (generator 
modification),  control  remains  within  the  secondary  scan.  For 
any  other  value  of  MODE,  control  returns  to  the  standard  driver 
file  scan. 


MODE* 2 2 Plot 
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The  curve  count  is  set  to  NCURV»1  in  preparation  for  a  new 
set  of  curves  for  the  modified  frequency  values.  MISC(5)*0 
causes  new  plot  parameters  to  be  calculated  during  the  next 
circuit  analysis.  The  updated  plot  driver  record  is  rewritten  to 
file  21  by  subroutine  DRIVWR  and  control  returns  to  the  driver 
file  scan. 


M0DE316  End 

If  the  modify  switch  is  on  (M0DFY=1) ,  a  new  circuit  analysis 
is  initiated  by  calling  subroutine  PHASE1.  If  thte  modify  switch 
is  off  (MODFY=0 ) ,  program  execution  ends  with  a  normal 
termination . 

For  other  values  of  MODE,  control  returns  to  the  driver  file 
scan  without  further  processing  by  subroutine  PHASE7 . 
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>  r 


UTILITY 


CXADD 

CXDIV 

CXiYPY 

CXPOL 

CXSUB 

DATARD 

DATAWR 

DRIVRD 

DRIVWR 

ERROR 

FUN 

LSHIFT 

RSHIFT 

SSCOD2 

TFRD 

TFWR 

TIMOUT 


NAME  v  CXADD 


TYPE-  SUFFCUTIKE 

CENEPAL  PUPPCSF - 

Calculates  the  complex  sum  C  =  A  +  F 

VAPIAELES 

A  =  Complex' 

r  =  Complex 

C  =  Complex 

SUPPCUTIEES  CALLED • 

rctrc 

CAI LIKC  PFOCRAES  : 


CL1  PC  EE 

CL’RJF 

CUPEC 

CUFKDS 

CL’PPT 

CUFSD 

CUPT 

CURVE 

CUPVT 

ETLCS 

ETEDE 

7 1  ADC 

rrscriPTiOK- 


Subrout ine 

CXADD  calculates 

the  complex  sum:  C: 

=  A  +  ?  . 

Fach 

complex  number 

is  represented  by  two 

decimal  numbers, 

the 

first 

for  its  real 

part  and  the  second 

for  its  imaginary 

par  t . 

The 

complex  sum  is  defined  according  to 


addend 

addend 

sum 
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C(l)=^  (1)  +E  (1) 
C(2)=A(2)+P (2) 


VAiT-  CXDIV 


TYPE'  SUFFCL’TIEE 

CrVEPJ  L  PUFPCS.F  • 

Calculates  the  complex  cuotient  C  =  P/ 0 

VP  LEE  • 

*  =  Ccrplex  dividend 

P  =  Ccrplex  divisor 

C  =  Complex  cuotient 

r  =  Intenrediate  storage 

EUEFCUTI U'EE  CP LLEE  • 

”C!'T 

CALLING  FXCCFflrS- 

c  rjrrc  cm:* 

ttscfiptioi: • 

Eubroutine  CXCIV  calculates  the  complex  quotient  C=A/E. 
Each  complex  number  is  represented  by  two  decimal  numbers,  the 
f i l s t  for  its  teal  part  and  the  second  for  its  imaginary  part. 
The  complex  cuotient  is  defined  according  to 
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m*Er  CX^PY 


TYPF ■  SUP POUT I\T 


rFKcFAL  PURPCSF • 

Calculates  the  corplex  product  C  =  A*r 


WF.IAFLPF 

fi 


C 

r> 


Corplex  multiplicand 
Corplex  multiplier 
Corplex  product 
Intermediate  storage 


FUFFCUTirFS  CALLED 


CAII ICC  FFOCPAUS • 

CPOSC  CUFNC  CUFUDS  CURT. 

f’TUCS  PPASF4  TFTCUV 


rFFCPiPTioi;  • 

Subroutine  CXVPY  calculates  the  corplex  product  C=A*P.  Each 
complex  number  is  represented  by  two  decimal  numbers,  the  first 
fet  its  teal  part  and  the  second  for  its  imaginary  cart.  The 
corplex  product  is  defined  according  to. 
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NAME:  CXPOL 


4  P 


TYPE:  SUBPOOTINE 

GENERAL  PURPOSE: 

Converts  the  complex  number  A  to  log  polar  form  B 

VARIABLES: 

A  =  Complex  number  in  rectangular  form 

B  =  Complex  number  in  log  polar  form 

SUBROUTINES  CALLED: 

NONE 

CALLING  PROGRAMS- 
PHASE4 

DESCRIPTION- 

Subroutine  CXPOL  converts  the  complex  number  A  from 
rectangular  to  log  polar  form.  In  rectangular  form,  the  real 
part  of  the  complex  number  is  stored  in  A(l)  and  the  imaginary 
part  in  A  (2).  The  polar  coordinates  are  returned  to  the  calling 
program  in  E,  where  the  radius  is  stored  in  E ( 1 )  and  the  angle  in 
B(2).  The  conversion  is  carried  out  according  to- 

•«*  V 
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NAME-  CXSUP 


TYPE:  SUPPOUTINE 

GENERAL  PURPOSE- 

Calculates  the  complex  difference  C  =  A-E 

VAFI ARLES  - 

A  =  Complex  minuend 

P  =  Complex  subtrahend 

C  -  Complex  difference 

SUPFCUTIKES  CALLED: 

NONE 

CALLINC  PRCCPANS : 


CUPCEN 

CURJF 

CUPXC 

CUFNES 

CURPT 

CURSE 

CURT 

CURVE 

CUF.VT 

NTLDS 

MTNDS 

ZIADC 

PESCPIPTICt- • 

Subroutine  CXSUE  calculates  the  complex  difference  C=A-E . 
Fach  complex  number  is  represented  by  two  decimal  numbers,  the 
first  for  its  teal  part  and  the  second  for  its  inaqrnary  pert. 
The  complex  difference  is  defined  according  to- 
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VAt-T:  PATARD 

TYPE •  SCEPCUTIKE 

CETERA  L  Rl’RPOSE- 

Feads  data  from  disk  file  20 

VARIABLES • 

A  PEA  =  Cote  locations  to  which  data  is  read 
IFCT  =  risk  location  at  which  reading  begins 
V  =  Humber  of  words  to  be  read 

FUEPCUTIKFS  CALLED  - 

i  I 

NCHE 


CALLING  FFCCPArS: 


CEl'CE 

cor TP L 

CURCEK’ 

CURJF 

CURKC 

CUFtJDS 

CUPPT 

CURED 

CUFT 

CURVD 

“ODCFP 

YTLDS 

HTFCS 

PRASFl 

PHASE 2 

PFASE3 

PFASE4 

TPIANC 

Z I  ADD 

rrscPiPTiCK • 

Subroutine  DATA  PC  tear’s  data  from  disk  file  20.  The 
transmission  begins  froir.  record  number  IPTP  and  continues  one 
word  at  a  tire  until  *T  words  have  been  read  from  file  20  and 
stored  in  A FFA ( 1 ) -A  FFA  (N) .  The  data  is  assumed  to  be  decimal, 
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NAME:  DATAWR 


TYPE:  SUBROUTINE 

GENERAL  PURPOSE: 

Writes  data  to  disk  file  20 

VARIABLES: 

AREA  =  Core  location  of  data  to  be  written 

IPTR  =  Disk  location  at  which  writing  begins 

N  =  Number  of  words  to  be  written 

SUBROUTINES  CALLED- 
NONE 

CALLING  PROGPAMS: 


CHNGE 

DATOUT 

GENOUT 

LCIN 

LDSIN 

MTLDS 

MTNDS 

NCIN 

NDSIN 

PHASE1 

PHASE 2 

PHASE4 

PLOT IN 

PSIN 

TPIANG 

ZIADD 

DESCRIPTION- 

Subroutine  DATAWR  writes  data  to  disk  file  20.  The  decimal 
values  stored  at  AREA (1) -AREA (N)  are  written  to  file  20  one  word 
at  a  time  beginning  at  record  number  IPTR.  The  write  operations 
are  performed  without  format.  After  the  data  transmission  is 


NAME-  DRIVRD 

TYPE:  SUBROUTINE 

GENERAL  PURPPSE : 

Reads  a  driver  record  from  disk  file  21 

VARIABLES: 

LCMMN  =  Starting  c.ore  location  to  which  record  is 
read 

SUBROUTINES  CALLED: 

NONE 

CALLING  PROGRAMS: 

CHNGE  GENOUT  MODGEN  PHASE1  PHASE2 
PHASE3  PHASE4  PHASE5  PHASE6  PHASE7 
PRNDRV 

DESCRIPTION: 

Subroutine  DRIVRD  reads  a  driver  record  from  disk  file  21. 
The  10-word  driver  record  stored  at  record  number  DRVREC  is  read 
from  file  21  by  an  unformatted  random  access  read  statement  and 
stored  in  the  first  ten  words  of  global  common.  The  driver 
record  number  is  updated  to  DRVREC=DRVREC+1  and  subroutine  DRIVRD 
returns  to  the  calling  program. 
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NAME-  DPIVWR 


TYPE:  SUBROUTINE 


GENERAL  PURPOSE  - 

Writes  a  driver  record  to  disk  file  21 


VARIABLES: 

LCMMN  =  Starting  core  location  of  record  to  be  written 

SUBROUTINES  CALLED - 
NONE 

CALLING  PROGRAMS: 

CHNGE  DRVOUT  GENOUT  LCIN 

PHASEl  PHASE2  PHASE3  PHASES 

PHASE6  PHASE7  PLOTIN 


DESCRIPTION- 


Subroutine  DPIVWR  writes  a  driver  record  to 
The  driver  record  stored  in  the  first  ten  words 
is  written  to  file  21  at  record  number  DRVREC  by 
random  access  write  statement.  The  driver 
updated  to  DRVPEC=DRVREC+1  and  subroutine  DRIVWR 
calling  program. 


disk  file  21. 
of  global  common 
an  unformatted 
record  number  is 
returns  to  the 
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rP.'T-  EFPCP 


J 

TYPE-  SUP ROUTINE 

CEI’EFAL  PUP  PCS  F  • 

Prints  error  iressages 

VA PIAFLES • 

J  =  Error  iressage  nurber 

JAPT  =  Input  error  switch-  f  *  Off 

1  =  Cn 

sueecutines  called- 

NONE 

CALLING  PrCCFANS - 


CFNCF 

PA TOUT 

DEC  IF 

EC  IN 

CFNIt' 

crrcuT 

JFETIN 

LCIK 

IDS  IN 

MCrCIN 

rcir 

Mcsir 

NCC FIN 

PPASE1 

PLOT IK 

press 

PS  IN 

FTIN 

seir: 

SDIN 

TPFir: 

VC  IN 

VTIF 

description 

Subroutine  EFPCP  prints  error  rressages.  First  the  error 
switch  is  turret?  on  by  JAFT=1,  the  appropriate  error  /ressage  is 
~t  intec7  according  to  the  ettor  nurbet  I  transritted  to  the 
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subroutine  as  an  argurent,  and  subroutine  FPPOP  returns  to  the 
calling  progtan. 


TYPP •  SUFPCUTIKF 


CEt'EFfr  FUFPCSF. 

Tenet stes  subscripts  of  terms  to  be  multiplied 
togethei  to  fotm  one  additive  tetr  of  the  polynomial 
powet  set  ies  expansion  coefficient  of  order  I, 
degree  J. 


VAPIArLPS ■ 

I  =  Crdet  of  coefficient  (sue  of  subscripts 

tetur  ned) 

7  =  r,eoree  of  coefficient  (number  of  subscripts  returned) 

v  =  Subscript  vector 

I  =  Incrementation  vector 

:***  =  Length  of  incrementation  vector 

SUTCF  =  Control  switch-  -1  *  Initialize  algorithm 

n •*  Continue  algorithm 
1  =  Algorithm  complete 


rurrccTiN’ES  callff- 

MCr:r 


CArnrc  fpccpa:t- 


FFTA 


CFT 


CL’PPT 


rh’CTi’ 


DESCRIPTION 


Subroutine  FUN  generates  (indirectly)  the  polynorial  power 


the  coefficient  of  X  when 


series  expansion  coefficient  F 


the  polynomial 


is  raised  to  the  Jth  power.  In  NCAP  it  is  convenient  to  denote  a 


polynomial  raised  to  the  Jth  power  by 


where  F 


(A)  cannot  be  formally  defined  mathematically 


Although  F 


algorithmic  evaluation 


(A)  is  a  sum  of  products  of  A 


2)  Each  product  contains  exactly  J  coefficient 


ubscripts  in  each  product  is  I,  the 


exponent  of  X. 

4)  Each  subscript  within  a  product  lies  in  the  range  1 
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5) 


Each  possible  ordered  set  of  subscripts  of  length  J 
and  sum  I  appears  once  and  only  once  in  the  expansion. 

6)  The  number  of  additive  terms  in  the  expansion  is(j_i). 

Subroutine  FUN  does  not  generate  the  expansion  coefficient 
directly,  but  rather  through  repeated  calls  produces  a  sequence 
of  integer  vectors  K,  each  of  which  constitutes  the  subscripts  of 
coefficients  to  be  multiplied  out  to  form  a  single  additive  term 
of  the  expansion.  The  calling  program  then  forms  the  products 
and  adds  them  to  form  the  correct  expansion. 

The  iterative  calls  to  subroutine  FUN  are  controlled  by  the 
integer  variable  SWTCH  which  is  initialized  to  -1  by  the  calling 
program  and  subsequently  tested  and  updated  in  FUN.  Upon  entry 
into  FUN,  if  SWTCH  is  negative,  the  algorithm  is  initialized  and 
the  first  subscript  vector  created.  SWTCH  is  set  to  +1  when  the 
last  subscript  vector  has  been  formed  and  the  algorithm  is 
complete.  For  intermediate  iterations  SWTCII=C. 

In  subroutine  FUN  the  subscripts  are  stored  in  the  integer 
vector  K.  For  Fj  (£)  each  call  to  subroutine  FUN  creates  the  J 
subscripts  which  constitute  one  additive  term  of  the  expansion 
returning  them  to  the  calling  program  in  K(l)  through  K(J).  The 
subscripts  are  generated  by  applying  an  incrementation  operation 
to  the  initial  subscript  vector  K=(l,l,...l)  of  length  J.  This 
operation  is  controlled  by  an  incrementation  vectot  L(M), 
?f=l ,  2  ,  . .  .  ,  (I-J)  ,  where  K  incremented  by  L  results  in: 

r(L(f*J  )«K(E  (V)  )+l  for  P-1,2,... , (I-J) 

The  incrementation  vectors  ate  formed  as  follows-  Fot  the 
first  J  iterations,  1.(1)  ranges  from  1  through  J  and  the 
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remaining  vector  elements  L (2) . . .L  ( I— J ) =1 .  For  the  next  (J-l) 
iterations,  1,(1)  ranges  from  2  through  J,  L(2)=2,  an  d  the 
remaining  vector  elements  L(3) . . .L (I-J) *1 .  This  process 
continues  until  all  (I-J)  vector  elenents  equal  J. 

The  algorithm  of  subroutine  FUC’  generates  in  K  all  possible 
ordered  sets  of  J  intecets  in  the  Lange  1  through  (I-J+l)  such 
that  K ( 1 ) +K ( 2 ) + .  . . +K  ( J ) = I  and  can  be  summarized  as  follows 


STEP  !•  Initialization 


a)  If  (SVTCK.GE.C)  go  to  Step  2. 

b)  Otherwise  initialize  incrementation  vector; 

r  (r)=i  for  r- 1,2 _ _  (i-J) 

c)  Set  FKTCF-" 

STEP  2 : _ Initial  ize  Subscript  Vector 

a)  Set  F(r)«l  for  ::=1,2,...,J 

h)  If  I=J,  algorithm  complete  exit  with  subscripts  in 
Y.  Otherwise  go  to  Step  3. 

STFP  3-  Increment  Subscript  Vector 

a)  Set  K  (L  (.”) )  *K  (L  (’*) )  +1  for  .-*1,2 _ _  (I-J) 
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OTEF  4  • 


coir  Incierentat ion  Foe  Next  Iteration 


I  a)  Initialize  index  K=1 

l~)  Update  L(N)=L(N)+1.  If  (L(K).LE.J),  incr erentation 
vector  corplete-  go  to  Step  5. 
c)  Otherwise  incierent  index  K=N+1.  If  (N.LF. (I-J) )  ,  go 
no  to  Step  4b.  Otherwise  algor  ithrr  corplete-  set 
S'TCF=1  and  exit  with  subscripts  in  K. 

STCF  5-  Save  Ir.cr  erentation  Vector  for  Next  Iteration 

~  -  1  -  “ 

I  I 

a)  refine  L(’')=L(N)  for  ?'=1  ,N 
b)  Exit  with  subscripts  in  K. 


"  corplete  tabulation  of  F  *  (A)  Up  to  6th  order  (the 

‘ 

raxirun  order  of  analysis  allowed  in  NCAF )  is  presented  below- 

I 

Incierentat ion  vector  L  contains  (I-J)=C 

2 

For  F2  (^)  '  1  =  2, J  =  2  elcrents ,  subscript  vector  K  contains  J=2 


elerents,  expansion  contains  one  additive 


Increrrentat ion  vector  L  contains  (I-J)=l 
For  F  2  (?  )  •  1  =  3 » J  =  2  elerent ,  subscript  vector  V  contains  J  =  2 

clerents,  expansion  contains  two  additive 
terrrs. 

I  =  (D  +  K-(2,l)  ^  A  ( 2 )  *  A  ( 1 ) 

I  =  (2)  ^  K=(l,2)  »(l)*f(2) 


Increi;  entation  Vector  L  contains  (l-j)= 

3 

For  F  (A)-  1=2 ,  ,7  =  3  elements  ,  subscript  vector  ”  contains 

J=3  elerents,  expansion  contains  ere 
additive  tetrr;. 

I-Inappl  icable  K=  (1,1,1)  ^  Ml )  *7  (3  )  *7  (3  ) 


For  r  2  (A) 


Increrrentat  icn  vector  L  contains  (I-J)=2 
I  =  MJ*2  elerents,  subscript  vector  F  contains  J=2 
elerents,  expansion  contains  three  addi¬ 
tive  terrrs. 


L«(l,l) 

♦ 

(3 , 1 ) 

7(3)  *7.(1) 

T.  *  ( 2 , 1 ) 

♦ 

y=( 2,2) 

* 

*  (2)  *7  (2.) 

r  =  (2,2) 

F= ( 1 . 3 ) 

* 

*  (D*?  (3) 

Increrentat ion  vector  L  contains  ( I — J ) = I 

4 

Pet  F  3  (7)  I  *  ■*  .  J  *  3  elerent.  subscript  vector  F  contains  .T  =  3 

elerents,  expansion  contains  three  addi¬ 
tive  terrrs 
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K={2,1  ,1) 

4 

A  (2)  *A  (1)  *ft  (1) 

V  (1,2,1) 

4 

.a  (1)  *A  ( 2 )  *A  (1) 

II 

h-» 

* 

*  ( 1 )  *ft  ( 1 )  *A  ( 2 ) 

Incre/ entaticn  vector  L  contains  (I-J)=S 

4 

Per  ?  ^  (.»}•  1=*,. J=4  elements,  subscript  vector  II  contains  J  =  4 

elements,  expansion  contains  one  additive 
t?r  r . 

^Inapplicable  r=  (1,1, 1,1)  +  ft  (1)  *A  (1)  *ft  (1)  *ft  (1) 


2  (')  ' 


Increrentat ion  vector  L  contains  (I-J)=3 
elerents,  subscript  vector  K  contains  J=2 
elements,  expansion  contains  4  additive 
ter.Ts . 


r  =  d  ,l,l) 

4 

:•  =  (4 ,  i) 

4 

*  (4  )  *A (1 ) 

t  *  ( 2 , 1 , 1 ) 

4 

r=  (3,2) 

4 

A (3) *A  (2) 

L= (2 , 2 , 1 ) 

4 

(2 , 3 ) 

4 

a  (2)  *A  ( 3 ) 

r-(2,2,2) 

4 

!’=(!, 4) 

4 

A (1) *A  (4) 

Incrorenta 

t ion  vector  I  contains 

(I-J) =2 

5 

3 

(A) 

T  =  c 

elerents , 

subscript  vector  X  cont 

a  ins  J  =  3 

elements , 

expansion  contains  six 

additive 

terms . 

E  = 

(1.1) 

4 

^=(3,1,1) 

4  A  (3)  *A  (1)  V.  (1) 

C 

II 

ro 

> 

1—* 

* 

•*: 

n 

K> 

> 

2,1) 

A  (2)  *A  (2)  *A  (1) 

I  =  (3,1) 

* 

If- (2, 

1,2) 

* 

A  (2)  *A  (1)  *A  (2) 

L= (2 ,2) 

* 

K-(l, 

3,1) 

A(1)*A(3)*A(1) 

L= (3,2) 

* 

r-i 

II 

u. 

2,2) 

A  (1)  *A  (2)  *A  (2) 

1=0,3) 

♦ 

y=(  1, 

1,3) 

* 

A  (1)  *A  (1)  *A  (3 ) 

4  (A)  : 

1=5, J=4 

Increrertation  vector  L  contains  (I-J) 

elerents,  subscript  vector  K  contains 

I  =  (1 ) 

♦ 

elerents,  expans 

tive  ter rs. 

F=(2, 1,1,1)  + 

ion  contains  four  acOi 

A (2) *A (1) *A  (1) *A  (1) 

L=  (2) 

♦ 

7=  (1,2, 1,1)  ^ 

A(1)*A(2)*A(1)*A(1) 

L=(3) 

I'=  (1,1, 2,1)  # 

A  (1)  *A  (1)  *A  (2)  *A  (1) 

II 

♦ 

II 

K) 

♦ 

A  (1  )  *A  (1)  *A  (1)  *A  (2) 

Inci  erentat  ion  vector  L  contains  (I-uy*P 
5 

For  r  5  (A)  1  =  5, J=5  elercnts,  subscript  vector  K  contains  J  =  5 

elerents,  expansion  contains  one  afeitive 
term . 

I.“  INAPPLICABLE)  _  K-  (1 ,1 ,1,1  ,1)  ^  A  (1)  *A  (1)  *A  (1)  *A  (1)  *A  (1) 


Increrentat  ion  vector  L  contains  (I-J)=4 

6 

For  F2  (A)  1=6, J=2  elerents,  subscript  vector  Y.  contains  J  =  2 

elerents,,  expansion  contains  five 
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oC.('  i- 


L*(l, 1,1,1) 

4 

tive  terms 

K* ( 5 , 1 ) 

• 

4 

A (5) *A (1) 

L*(2, 1,1,1) 

4 

K= (4 , 2) 

4 

A  (4)  *A  (2) 

L=  (2 , 2 , 1 , 1) 

4 

K* (3 , 3) 

4 

A (3) *A (3) 

L* (2 ,2, 2 , 1) 

4 

K= (2 , 4) 

4 

A ( 2) *A (4) 

L*  ( 2 , 2 , 2 , 2 ) 

4 

K*  (1 , 5) 

4 

A ( 1) *A ( 5) 

Incrementation  vector  L  contains  (I-J)*3 

6 

For  F  3  (A)-  1*6, J=3  elements,  subscript  vector  K  contains  J*3 

elements,  expansion  contains  ten  additive 
terms . 


L= (1,1,1) 

K=(4,l,l) 

4 

A  ( 4 )  *A  ( 1 )  *A  (1) 

L=  ( 2 , 1 , 1 ) 

K= ( 3 , 2 , 1 ) 

4 

A(3)*A(2)*A(1) 

L= (3 ,1 ,1) 

* 

K=  (3 , 1 , 2) 

4 

A(3)*A(1)*A(2) 

L* (2 , 2 , 1) 

K* (2 , 3 , 1 ) 

4 

A(2)*A(3)*A(1) 

L* (3 , 2 , 1) 

4 

K-  (2 , 2 , 2) 

4 

A(2) *A(2) *A(2) 

L= (3 , 3 , 1) 

* 

K= ( 2 , 1 , 3) 

4 

A(2)*A(1)*A(3) 

L*  (2 , 2 , 2) 

♦ 

K= (1 ,4 , 1) 

4 

A  (1 )  *A  (4)  *A  (1 ) 

L* ( 3 , 2 , 2) 

* 

K* (1 , 3 , 2) 

4 

A(1)*A(3)*A(2) 

L*  (3 , 3 ,2) 

♦ 

K* (1 , 2 , 3) 

4 

A(1)*A(2)*A(3) 

L=  ( 3 , 3 , 3) 

* 

K=(l,l,4) 

4 

A  (1 )  *A  ( 1 )  *A  ( 4 ) 

Incrementation  vector  L  contains  (I-J)*2 

6 

For  F  4  (A):  1*6, J*4  elements,  subscript  vector  K  contains  J*4 

elements,  expansion  contains  ten  additive 
terms . 
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For 


For 


L*  ( 1 , 1 ) 

4 

K*(3, 1,1,1) 

4 

A  (3)  *A  ( 1 )  *A  ( 1 )  *A  ( 1 ) 

L- (2 ,1) 

4 

K*  (2 , 2 , 1 , 1) 

4 

A  (2)  *A  (2)  *A  (1 )  *A  ( 1 ) 

L* (3 ,1) 

4 

K-(2, 1,2,1) 

4 

A  ( 2 )  *  A  ( 1 )  *  A  ( 2 )  *  A  ( 1 ) 

L* ( 4 , 1 ) 

4 

K*  (2 , 1 , 1 , 2) 

4 

A  (2)  *A(1)*A(1)*A(2) 

L*  (2 , 2) 

4 

K* (1,3, 1,1) 

4 

A(l)*A(3)*A(l)*A(i) 

L* ( 3 , 2) 

4 

K* (1 ,2,2,1) 

4 

A(1)*A(2)*A(2)*A(1) 

L* (4 , 2) 

4 

K*  (1 ,2,1 ,2) 

4 

A  (1)  *A  (2)  *A  { 1 )  *A  ( 2 ) 

L*  (3 , 3) 

4 

K*(l, 1,3,1) 

4 

A  (1 )  *A  (1 )  *A  (3) *A (1) 

L*  ( 4 , 3 ) 

4 

K* (1 ,1 ,2 , 2) 

4 

A(1)*A(1)*A(2)*A(2) 

L*  (4 , 4) 

4 

K*  (1 ,1 , 1 , 3) 

4 

All) *A (1) *A (1 ) *A  (3 ) 

Incrementation  vector  L  contains ( I-J) =  1 
F  5  (A):  1*6, J=5  element,  subscript  vector  K  contains  J=5 

elements,  expansion  contains  five  addi¬ 


tive  terms. 


L-(l) 

4 

K* (2, 1,1, 1,1,) 

L*  ( 2) 

4 

K* (1,2, 1,1,1,) 

L*  (3) 

4 

K* (1,1, 2, 1,1,) 

L=(4) 

4 

K* (1,1, 1,2,1,) 

L*  (5) 

4 

K* (1,1, 1,1, 2,) 

^  A(2) *A  ( 1) *A(1) *A  (1 ) *A  (1 ) 

^  A(1)*A(2)*A(1)*A(1)*A(1) 

4  A(l) *A  ( 1 ) *A  ( 2) *A ( 1 ) *A  ( 1 ) 
4  A(1)*A(1)*A(1)*A(2)*A(1) 

4  A  ( 1 )  *  A  ( 1 )  *A  ( 1 )  *  A  ( 1 )  *A  ( 2 ) 


6 

F  6  (A)  : 


Incrementation  vector  L  contains  (I-J)*0 
1*6, J*6  elements,  subscript  vector  K  contains  J=6 
elements,  expansion  contains  one  additive 
term . 


3 -9  CL 


NAME:  LSHIFT 


TYPE*  SUBROUTINE 

GENERAL  PURPOSE: 

Shifts  the  character  stored  in  the  least  significant 
bits  of  ICHAR  to  the  most  significant  bits 

VARIABLES: 

NONE 

SUBROUTINES  CALLED: 

NONE 

/ 

CALLING  PROGRAMS* 

PRSET 

DESCRIPTION*  / 

/ 

y 

Subroutine  LSHIFT  shifts  the  alphanumeric  character  stored 
in  the  NECHAP  least  significant  bits  of  ICHAR  to  the  most 
significant  bits  by  multiplication  by  an  appropriate  power  of  2. 
The  resulting  lef t-justif ied  character  is  automatically  zero 
filled  to  the  right. 
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NAME*  RSHIFT 


TYPE:  SUBROUTINE 

GENERAL  PURPOSE: 

Shifts  the  character  stored  in  the  least  significant 
bits  of  ICHAR  to  the  most  significant  bits 


VARIAPLES • 

NONE 

SUBROUTINES  CALLED: 

NONE 

CALLING  PROGRAMS* 

MAIN  PHASE4  SHIFT 

DESCRIPTION: 

Subroutine  RSHIFT  shifts  the  alphanumeric  character  stored 
in  the  NBCHAR  most  significant  bits  of  ICHAR  to  the  least 
significant  bits  by  division  by  an  appropriate  power  of  2.  If 
the  operation  causes  the  sign  bit  to  propagate  (ICHAR. LT. 0 ) ,  then 
the  word  is  zero  filled  to  the  left  by  adding  2NBCHA-?1. 


r'ES  CRIPTIC?: 

Fubroutine  SSCCD2  converts  a  sequential  frequency 
combination  to  a  freouency  combination  code  and  calculates  the 
angular  freouency  fOL  that  combination.  Arguments  transmitted  to 
the  subroutine  are  the  secuential  frequency  combination,  SCGtfE • 
the  frequency  number  table,  FFTFL-  and  the  frequency  values, 
FPEC.  Arguments  returned  to  the  calling  program  are  SCCCE  and  S, 
the  calculated  ftecuency  combination  code  and  angular  frequency. 

The  relationship  between  the  sequential  frequency 
combination  and  the  combination  code  is  that  if  the  Kth 
sequential  freouency  is  in  the  combination  (i.e.,  the' Kth  bit  of 
FCCl’P  is  1),  then  the  user-assigned  freouency  number  FRTPL(K)  is 
included  in  the  code  (i.e.,  the  FFTFL (K) th  bit  of  SCODF  is  1). 
Firilarly  the  Kth  ftecuency  value  is  included  in  the  angular 
ftecuency,  £,  if  the  Kth  sequential  ftecuency  appears  in  the 
frequency  combination. 

The  method  employed  by  subroutine  FECCC2  is  to  extract  each 
secuential  ftecuency  number  from.  SC.Cl'2  and,  using  the  frequency 
number  table  FFTFL ,  to  combine  the  corresponding  user -assigned 

f 

ftecuency  numbers  and  values  into  the  freouency  combination  code 
and  angular  freouency.  The  secuential  ftecuency  numbers  are 
extracted  from  the  combination  by  using  a  simulated  shift 
register  L,  which  is  initially  loaded  with  the  sequential 
freouency  combination  FCC’T.  A  ftecuency  number  is  extracted 
frer  SCCrr  by  shifting  the  right-most  bit  from  the  register  into 
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the  integer  variable  M.  At  the  same  time,  the  integer  K 
maintains  a  count  on  the  bit  position  being  examined. 

If  the  Kth  bit  is  set  (M=l) ,  then  the  FRTBL (K) th  bit  of  the 
frequency  combination  code  is  set  to  1  and  the  Kth  frequency 
value  is  added  to  the  angular  frequency.  The  calculations  are 
complete  when  the  shift  register  is  empty. 

The  complete  algorithm  of  subroutine  SSC0D2  is  summarized  as 
follows  •' 


STEP1 :  Initialization 


a)  Initialize  bit  position  counter  K=0  and  load  shift 
register  with  sequential  combination  by  L*SCOMB. 

b)  Clear  angular  frequency  and  combination  code  by  S=0.  and 
SCODE-0 

STEP  2?  Extract  Kth  Bit  and  Map  to  SCOPE  and  S 

a)  Increment  bit  position  by  K*K+1 

b)  Shift  right-most  bit  from  register  and  store  in  M: 

M«L 
L-L/2 
M-M- (L*2) 

c)  Set  PTRBL(K)th  bit  of  frequency  combination  code 
accord  if. g  to  value  of  M- 
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NAME:  TFFD 


TYPE  SUEPCUTIKE 


CENEEAL  PURPOSE 


Disk  file  r.unber 


Record  nurrber  at  which  reading  begin 


Eurrber  of  words  to  be  read 


SUEFCUTIFFS  CALLED 


CALLIf’C  PPCCFAf'S 


curcee  cupjf 


CUDND 


NAME •  TFWP 


TYPE:  SUP POUT IKE 


CEFEPAL  PUPPCPE  ■ 


Writes  data  to  disk  files  24  and  25 


VARIAPLES : 

AREA  =  Core  location  of  data  to  be  wiitten 
IFILE  =  Disk  file  number 

IPTF  =  Record  number  at  which  writing  begins 
F  =  Number  of  words  to  be  written 

SUDFCUTINFS  CALLED- 
FCNE 

CALLIKC  PPCCRAFS • 

COFTRL  CUECEN  CUFJF  CUFKC  CUPKDS 

CURPT  curse  CURT  CURVE  CUPVT 

PEASF3  TP I AFC 

DESCRIPTION • 

Subroutine  TFVT  writes,  date  to  disk  file  IEILE. 
valuer,  stored  at  A  PEA  (1 )  -A  REA  (F)  are  written  to  file 
word  at  a  tine  beginning  at  record  number  IPTE. 
operations  are  performed  without  format.  After 


The  decimal 
I  PILE  ore 
The  write 
the  data 
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NAME?  TIMOUT 


<1 

TYPE:  SUBROUTINE 

GENERAL  PURPOSE: 

Calculates  elapsed  clock  time  for  a  single  program  segment  and 
accumulates  total  clock  time  for  all  executions  of  that  segment 
within  an  NCAP  job 

VARIABLES: 

I  =  Index  for  TIME  and  TTOTAL  arrays:  program 

segment  identifier 

TIME  *  Elapsed  clock  time  per  segment 

TSTART  =  Start  time  per  segment  } 

TSTOP  *  Stop  time  per  segment 

TTOTAL  ■  Accumulated  clock  time  per  segment 

SUBROUTINES  CALLED: 

PTIME 


CALLING  PROGRAMS- 

ENDIN  PNCTN  PHASE1  PHASE2 

PHASE3  PHASE4  PHASE5  PHASE6  PHASE7 


DESCRIPTION- 

Subroutine  TIMOUT  calculates  the  clock  time  elapsed  during 
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execution  of  a  single  program  segment  (a  portion  of  a  subprogram 
or  one  or  more  subprograms)  and  accumulates  total  clock  time 
consumed  for  all  executions  of  that  segment  during  an  NCAP  job. 
The  program  segment  is  identified  by  the  integer  argument  I,  and 
the  start  time  for  the  segment,  TSTART,  is  transmitted  to  the 
subroutine  in  the  labelled  common  area  TIMEPL. 

NCAP  allows  the  timing  of  30  program  segments.  This  number 
may  be  increased  or  decreased  by  adjusting  the  dimension  of  the 
TSTART,  TSTOP,  TIME,  and  TTOTAL  arrays  in  the  labelled  common 
area  TIMEFL.  The  program  segments  presently  selected  for  timing 
are : 


Segment 

1 

2 

3 

4 

5 

6 

7 

8 

9 

10 
11 


Description 
Phase  0  Complete 
Phase  1  Complete 
Phase  1  Generator  Routines 
Phase  1  Nonlinear  Components 
Routines 

Phase  1  Vacuum  Diode  Routines 
Phase  1  Vacuum  Triode  Routines 
Phase  1  Vacuum  Pentode  Routines 
Phase  1  Transistor  Routines 
Phase  1  Semiconductor  Diode 
Rout ines 

Phase  1  JFET  Routines 

Phase  1  Linear  Dependent  Source 

Routines 
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Phase  1  Nonlinear  Dependent  Source 


Pout ines 


Phase  2  Complete 
Phase  3  Complete 


Phase  3  Cenerator  Routines 


Phase  3  Nonlinear  Components  Routines 


Phase  3  Vacuum  Diode  Routines 


Phase  3  Vacuum  Triode  Routines 


Phase  3  Vacuum.  Pentode  Routines 


Phase  3  Transistor  Routines 


Phase  3  Semiconductor  Diode  Routines 


Phase  3  JFET  Routines 


Phase  3  Nonlinear  Dependent  Source 


Pout ines 


ubroutine  CONTRL 


ubroutine  TRIAMG 


Subroutine  FNCTN 


Phase  5  Complete 


Each  procra.T  segment  is  timed  by  addressing  the  clock  before 


its  first  executable  statement  to  acquire  its  TSTART  tire  and 


TCP  time.  The  method  of  addtessina  the  clock  is  a 


achine  dependent  function  performed  in  the  present  NCAP  version 


V 

O 


by  subroutine  PTIKF.  Subroutine  TINCUT  then  calculates  the 
elapsed  time  for  each  program  segment  as- 


TIME  (I)  =  Tlt'F(I)  +  (TSTCP(I)  -  T£TAPT(I)) 
and  the  accumulated  time  as: 

TTCTAL ( I )  =  TTCTAL  (I)  +  (TSTCP(I)-  TSTAPT (I) ) 

The  resulting  times  are  saved  in  the  labelled  common  area  TI’TFL 
for  subsequent  output  by  subroutine  PENT  I.",  and  subroutine  7 1  "CUT 
returns  to  the  calling  program. 


3-96E 


ill  m 


MISSION 

Rome  An  Development  Center 


RA DC  plan*  and  exec utes  research,  development,  tut  and 
selected  acquisition  programs  in  su pport  of  Command,  Control 
Communications  and  Intelligence  (C3I)  activities.  Technical 
and  engineering  support  within  areas  of  technical  competence 
is  provided  to  ESV  Program  Offices  IPOs)  and  other  E SO 
elements.  The  principal  technical  mission  areas  are 
communications,  electromagnetic  guidance  and  control,  sur¬ 
veillance  of  ground  and  aerospace  objects,  intelligence  data 
collection  ana  handling ,  information  system  technology, 
ionospheric  propagation ,  solid  state  sciences,  microwave 
physics  and  electronic  reliability,  maintainability  and 
compatibility. 


